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How This Document Was Created 

David T. Craig - 29 August 2001 

This document was created from a set of text files containing the source code for SOS 1.3. These files 
were obtained around 1989 or 1990. These text files were originally on Apple II computer DOS 3.3 5.25" 
floppy diskettes. These files were transferred from the Apple II to either an Apple Lisa or Macintosh 
computer (I forget which one I used but suspect the Lisa). These files were then formatted in the Lisa 
Workshop (or Macintosh MPW Shell?) to have headers and footers. 

Several years ago I turned these files into a PDF document since PDF was a more universal document 
format than many other formats. This file was included on my Apple /// Info CD from 1999 (or 1998?). 

In August 2001, I created a new PDF document by taking the original text files that were on Macintosh 
disks. I used various computer tools which I had created over the years to do this. 

DTCCatTextDocsRecursive 

This Macintosh MPW Shell tool created a single text document from all the SOS source files. As this tool's 
name implies, it created its output document by recursively traversing the folder on my Mac with the SOS 
folders and subfolders. Resulting document stored in text document SOS. SOURCE. ALL. Fl LES.TEXT. 

DTCEnTabNOT 

This Macintosh MPW Shell converted all the tabs in the document to spaces. The original text files were 
based on tab stops every 8 positions which my Mac word processor (Microsoft Word 5.1) could not 
handle correctly. Here's the MPW command line and output for this tool: 
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DTCEnTabNOT 8 SOS. SOURCE. ALLFI LES. TEXT > SOS. SOURCE. ALLFI LES2. TEXT 

Apple Macintosh EnTab NOT 1.0.0 

David T. Craig / 71533.606@compuserve.com 

December 4, 1997 

Tab width = 8 

Processing file "SOS. SOURCE. ALLFI LES. TEXT" ... 
That's all folks! 
Microsoft Word 5.1a 

This Macintosh tool was used to put the text document (SOS. SOURCE. ALL.FI LES2. TEXT) into a good 
format for printing (the document was saved as SOS. SOURCE. ALL.FI LES.MSW). I added a nice header 
and footer to the document and also a nice introductory page complete with a scanned image of the 
Apple /// to make the document stand out as a /// document. I also used landscrape page orientation 
since parts of the listing have very long lines (e.g. the SOS loader files have some rather wide diagrams). 

PDFWriter 

This Macintosh printer driver was used to create the actual PDF document. I just told my Macintosh to 
use this printer driver and then printed from Microsoft Word. The end result was a PDF document which I 
named "Apple 3 SOS 1.3 Source Listing. pdf". 
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FILE : "SOS . SOURCE .ALL .FILES . TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 



DOCUMENT : SOS . SOURCE . INFO : SOS . AAA . 1 . README . TEXT 



READ ME FILE FOR SOS SOURCE CODE DISK 
Publicus / David T Craig — March 1993 



This Macintosh 800K HFS disk contains the complete source code listing for 
the Apple /// computer's operating system, SOS. This source listing is for 
version 1.3 of SOS, the last released SOS. Note that Apple had (to my 
knowledge) 3 SOS releases: 1.0, 1.1, 1.3 (version 1.2 appeares to have not 
been released to the public). Version 1.3's release date is February 1982. 

SOS may be read as "Sophisticated Operating System" or "Sara's Operating 
System" since the Apple /// computer was code-named "SARA" by Apple Computer. 

The Apple /// was Apple's premier business computer system for the time 
period 1980 to 1983. 

This source listing is written in 6502 assembly language. The assembler 
used by Apple was an Apple ] [ computer assembler which ran on a networked 
collection of Apple ] [ computers. I have been told by knowledgable /// 
owners that the SOS source code was never ported to an Apple /// even though 
the /// had a nice assembler (as part of the Ill's Pascal development system) 

For a detailed discussion of SOS see Apple Computer's well-written 
"SOS Reference Manual" series (two volumes) . 

From a historical perspective this source code is of no real use today since 
it is for a discontinued computer system. From a technical perspective this 
source is interesting since it provides a "real world" example of an 
operating system for a microcomputer. From a legal perspective this source 
is rather sensitive since parts of it may be used by Apple in its ProDOS 
operating system for the Apple ] [ series (includes the lie and //GS) . 

Due to the legal ramifications of the SOS source code the author of this 
READ ME file shall remain anonymous. 

This author would very much like to learn a little about how Apple developed 
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000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 



SOS. If any former /// development team members ever read this file, I hope 
that one of them will write a short "SOS History" and place it in a publically 
accessable area (e.g. CompuServe Information System). 

Enjoy . . . 
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000054 
























000055 


DOCUMENT : SOS . SOURCE . INFO : SOS . AAA . 2 . 


CATALOG . 


TEXT 








000056 














































000057 

\J \J \J \J i 
























000058 


] [] [] [] [] [] [] [] [] 


[] 


[] [] [] [] [] [] [] [] 


] 


] [ 


[] [ 


] [] [] [] [] [] 


[] [] 


] [] [] [] [] [] [] 


n n r 

L J L J L 


000059 


APPLE 


/// SOS 1 


. 3 A] [ SOURCE CODE 


DISK CATALOG LISTINGS 




000060 


] [] [] [] [] [] [] [] [] 


[] 


[] [] [] [ 


[] [] [] [] [] 


] [ 


[] [] [] [] [] [] [] [] [] 


] [] [] [] [] [] [] 


[1 [1 [ 
L J L J L 


000061 
























000062 


/S0S1 .3. ONE 




Size 


Modified 


Time 


File type 


Eof 


Phys 




000063 


SYSGLOB.SRC 




17 


31-Dec-e 


9 


18 


17 


Asciif ile 


304 


18 




000064 


OPRMSG . SRC 




11 


31-Dec-e 


9 


18 


18 


Asciif ile 


260 


12 




000065 


IPL.SRC1 




25 


31-Dec-e 


9 


18 


19 


Asciif ile 


237 


26 




000066 


IPL.SRC2 




19 


31-Dec-e 


9 


18 


20 


Asciif ile 


208 


20 




000067 


SOSLDR.SRC 




9 


31-Dec-e 


9 


19 


56 


Asciif ile 


455 


10 




000068 

\J \J \J \J \J **J 


BFM. INIT2 . SRC 




9 


31-Dec-e 


9 


18 


:21 


Asciif ile 


371 


10 




000069 

\J \J KJ \J \J ~S 


INIT.SRC 




16 


31-Dec-e 


9 


18 


22 


Asciif ile 


194 


17 




000070 


SOSLDR.A.SRC 




12 


31-Dec-e 


9 


18 


34 


Asciif ile 


424 


13 




000071 


SOSLDR.B.SRC 




9 


13-Jan-90 


22 


17 


Asciif ile 


113 


10 




000072 


SOSLDR.C.SRC 




13 


31-Dec-e 


9 


18 


23 


Asciif ile 


440 


14 




000073 


SOSLDR.D.SRC 




29 


31-Dec-e 


9 


18 


24 


Asciif ile 


28 


30 




000074 


SOSLDR.E.SRC 




16 


31-Dec-e 


9 


18 


25 


Asciif ile 


334 


17 




000075 


SOSLDR.F.SRC 




21 


31-Dec-e 


9 


18 


27 


Asciif ile 


419 


22 




000076 


13 files listed, 


52 


blocks 


available 














000077 
























000078 


/S0S1 .3. TWO 




Size 


Modified 


Time 


File type 


Eof 


Phys 




000079 


DISK3.SRC 




9 


31-Dec-e 


9 


18 


53 


Asciif ile 


496 


10 




000080 


DISK3 . DATA . SRC 




3 


31-Dec-e 


9 


18 


54 


Asciif ile 


403 


4 




000081 

\J \J \J \J <J J- 


DISK3. SUBS. SRC 




13 


31-Dec-e 


9 


18 


55 


Asciif ile 


136 


14 




000082 


DISK3 . USEL . SRC 




8 


31-Dec-e 


9 


18 


56 


Asciif ile 


108 


9 




000083 


DISK3 . SIO . SRC 




11 


31-Dec-e 


9 


18 


57 


Asciif ile 


249 


12 




000084 


DISK3 . WRT . SRC 




7 


31-Dec-e 


9 


18 


57 


Asciif ile 


43 


8 




000085 


DISK3 .MAIN . SRC 




10 


31-Dec-e 


9 


18 


58 


Asciif ile 


175 


11 




000086 

\J \J \J \J <J \J 


SYSERR.SRC 




7 


31-Dec-e 


9 


19 


00 


Asciif ile 


355 


8 




000087 


SCMGR.SRC 




22 


31-Dec-e 


9 


19 


01 


Asciif ile 


500 


23 




000088 


FMGR.SRC 




4 


31-Dec-e 


9 


19 


01 


Asciif ile 


95 


5 




000089 


CFMGR.SRC 




18 


31-Dec-e 


9 


19 


02 


Asciif ile 


44 


19 




000090 


BUFMGR . SRC 




29 


31-Dec-e 


9 


19 


03 


Asciif ile 


41 


30 




000091 


MEMMGR . A . SRC 




18 


31-Dec-e 


9 


19 


04 


Asciif ile 


357 


19 




000092 

\J \J \J \J 


MEMMGR . B . SRC 




18 


31-Dec-e 


9 


19 


05 


Asciif ile 


65 


19 




000093 

\J \J \J \J *J 


MEMMGR . C . SRC 




14 


31-Dec-e 


9 


19 


09 


Asciif ile 


376 


15 




000094 


DEVMGR . SRC 




11 


31-Dec-e 


9 


19 


10 


Asciif ile 


281 


12 




000095 

\J \J \J \J J ~J 


16 files listed, 


55 


blocks 


available 














000096 
























000097 


/ SOS 1 .3. THREE 




Size 


Modified 


Time 


File type 


Eof 


Phys 




000098 


UMGR.SRC 




27 


31-Dec-e 


9 


19 


22 


Asciif ile 


350 


28 




000099 


ALLOC 




23 


31-Dec-e 


9 


19 


24 


Asciif ile 


345 


24 




000100 


EQUATES 




19 


31-Dec-e 


9 


20 


55 


Asciif ile 


186 


20 




000101 


FNDFIL 




42 


31-Dec-e 


9 


19 


27 


Asciif ile 


263 


43 




000102 


PRINT 




1 


31-Dec-e 


9 


19 


29 


Asciif ile 


435 


1 
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000103 


PATH 


33 


31-Dec-8 


9 


19 


30 


Asciif ile 


497 


34 


000104 


VOLUME 


9 


31-Dec-E 


9 


19 


31 


Asciif ile 


369 


10 


000105 


CREATE 


30 


12-Jan-f 


9 


22 


30 


Asciif ile 


441 


31 


000106 


8 files listed, 


82 blocks available 














000107 




















000108 


/SOS1 .3. FOUR 


Size 


Modified 


Time 


File type 


Eof 


Phys 


000109 


SWAPOUT . IN 


21 


31-Dec-E 


9 


19 


.47 


Asciif ile 


303 


22 


000110 


CLOSE. EOF 


23 


31-Dec-E 


9 


19 


48 


Asciif ile 


87 


24 


000111 


READ. WRITE 


38 


31-Dec-E 


9 


19 


49 


Asciif ile 


86 


39 


000112 


DESTROY 


28 


31-Dec-E 


9 


19 


50 


Asciif ile 


242 


29 


000113 


POSN.OPEN 


44 


31-Dec-E 


9 


19 


52 


Asciif ile 


243 


45 


000114 


5 files listed, 


114 blocks 


available 












000115 




















000116 


/SOS1 .3. FIVE 


Size 


Modified 


Time 


File type 


Eof Phys 


000117 


LCHK 


1 


31-Dec-E 


9 


19 


59 


Asciif ile 


147 


1 


000118 


LC 


1 


31-Dec-E 


9 


20 


00 


Asciif ile 


74 


1 


000119 


COMPILE . BFM 


1 


31-Dec-E 


9 


20 


00 


Asciif ile 


68 


1 


000120 


COMPILE. SOS 


2 


31-Dec-E 


9 


20 


01 


Asciif ile 


97 


3 


000121 


SOS . BLOAD 


1 


31-Dec-E 


9 


20 


02 


Asciif ile 


450 


1 


000122 


SOS .LINK 


1 


31-Dec-E 


9 


20 


03 


Asciif ile 


170 


1 


000123 


SOS . RENAME 


2 


31-Dec-E 


9 


20 


03 


Asciif ile 


11 


3 


000124 


FEB01 .1982 


2 


31-Dec-E 


9 


20 


04 


Asciif ile 


64 


3 


000125 


PUBLICRE LEASE 


1 


31-Dec-E 


9 


20 


05 


Asciif ile 


71 


1 


000126 


COMP.SOS.NOLIST 2 


31-Dec-E 


9 


20 


05 


Asciif ile 


79 


3 


000127 


TCOMP . SOS 


1 


31-Dec-E 


9 


20 


06 


Asciif ile 


388 


1 


000128 


SOSORG 


5 


31-Dec-E 


9 


20 


07 


Asciif ile 


428 


6 


000129 


C.S 


1 


31-Dec-E 


9 


20 


08 


Asciif ile 


116 


1 


000130 


C.BI2 


1 


31-Dec-E 


9 


20 


09 


Asciif ile 


76 


1 


000131 


C3 


1 


31-Dec-E 


9 


20 


09 


Asciif ile 


155 


1 


000132 


COMP.OPR.IPL 


1 


31-Dec-E 


9 


20 


10 


Asciif ile 


124 


1 


000133 


16 files listed, 


244 blocks 


available 












000134 




















000135 




<« END OF CATALOG LISTING >» 






000136 




















000137 
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000138 =======================================================: 

000139 DOCUMENT : SOS. SOURCE. INFO: SOS. AAA. 3. OPCODEFREQS. TEXT 

000140 ========================= 

000141 

000142 APPLE /// SOS 1.3 OPCODE INFORMATION 
000143 

000144 ########################################## OPCODE LISTS 
000145 

000146 Sorted by Name: 

000147 

000148 Opcode count : 86 

000149 Min frequency: 1 

000150 Max frequency: 1864 
000151 



000152 


# 


Opcode Name 


Freq 


Histogram 


000153 


















000154 


[ 1] 


.PAGE 


2 




000155 


[ 2] 


ADC 


125 


* * * * 


000156 


[ 3] 


AND 


147 


***** 


000157 


[ 4] 


ASC 


32 


* * 


000158 


[ 5] 


ASL 


46 


* * 


000159 


[ 6] 


BCC 


240 


******* 


000160 


[ 7] 


BCS 


274 


******* 


000161 


[ 8] 


BEQ 


291 


******** 


000162 


[ 9] 


BIT 


58 


* * * 


000163 


[ 10] 


BMI 


59 


*** 


000164 


[ 11] 


BNE 


397 


********** 


000165 


[ 12] 


BPL 


121 


* * * * 


000166 


[ 13] 


BRK 


12 


** 


000167 


[ 14] 


BVC 


12 


* * 


000168 


[ 15] 


BVS 


7 


* * 


000169 


[ 16] 


CHN 


28 


* * 


000170 


[ 17] 


CHR 


1 


* 


000171 


[ 18] 


CLC 


181 


***** 


000172 


[ 19] 


CLD 


3 


* * 


000173 


[ 20] 


CLI 


5 


** 


000174 


[ 21] 


CLV 


4 


** 


000175 


[ 22] 


CMP 


286 


******* 


000176 


[ 23] 


CPX 


40 


** 


000177 


[ 24] 


CPY 


56 


*** 


000178 


[ 25] 


DEC 


73 


* * * 


000179 


[ 26] 


DEND 


4 


* * 


000180 


[ 27] 


DEX 


75 


* * * 


000181 


[ 28] 


DEY 


126 


* * * * 


000182 


[ 29] 


DFB 


188 


***** 


000183 


[ 30] 


DO 


10 


** 


000184 


[ 31] 


DS 


210 


****** 


000185 


[ 32] 


DSECT 


4 


** 


000186 


[ 33] 


DW 


83 


* * * 
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000187 


[ 34] 


ELSE 


5 


** 


000188 


[ 35] 


ENTRY 


190 


***** 


000189 


[ 36] 


EOR 


21 


** 


000190 


[ 37] 


EQU 


1134 


************************* 


000191 


[ 38] 


ERROR 


1 


* 


000192 


[ 39] 


EXTRN 


242 


******* 


000193 


[ 40] 


FAIL 


17 


* * 


000194 


[ 41] 


FIN 


27 


* * 


000195 


[ 42] 


IBUFSIZ 


1 


* 


000196 


[ 43] 


IFNE 


16 


* * 


000197 


[ 44] 


INC 


131 


* * * * 


000198 


[ 45] 


INCLUDE 


21 


** 


000199 


[ 46] 


INX 


33 


** 


000200 


[ 47] 


INY 


143 


* * * * 


000201 


[ 48] 


JMP 


199 


****** 


000202 


[ 49] 


JSR 


546 


************* 


000203 


[ 50] 


LDA 


1864 


**************************************** 


000204 


[ 51] 


LDX 


266 


******* 


000205 


[ 52] 


LDY 


450 


*********** 


000206 


[ 53] 


LSR 


93 


* * * 


000207 


[ 54] 


LST 


13 


* * 


000208 


[ 55] 


MSB 


22 


* * 


000209 


[ 56] 


NOP 


2 


** 


000210 


[ 57] 


ORA 


100 


* * * * 


000211 


[ 58] 


ORG 


24 


** 


000212 


[ 59] 


PAGE 


246 


******* 


000213 


[ 60] 


PHA 


90 


* * * 


000214 


[ 61] 


PHP 


23 


** 


000215 


[ 62] 


PLA 


91 


* * * 


000216 


[ 63] 


PLP 


20 


** 


000217 


[ 64] 


REL 


16 


* * 


000218 


[ 65] 


REP 


417 


********** 


000219 


[ 66] 


ROL 


14 


* * 


000220 


[ 67] 


ROR 


23 


** 


000221 


[ 68] 


RTI 


3 


* * 


000222 


[ 69] 


RTS 


324 


******** 


000223 


[ 70] 


SBC 


111 


* * * * 


000224 


[ 71] 


SBTL 


32 


** 


000225 


[ 72] 


SBUFSIZ 


1 


* 


000226 


[ 73] 


SEC 


136 


* * * * 


000227 


[ 74] 


SEI 


23 


** 


000228 


[ 75] 


SKP 


3 


* * 


000229 


[ 76] 


STA 


1406 


******************************* 


000230 


[ 77] 


STX 


84 


*** 


000231 


[ 78] 


STY 


78 




000232 


[ 79] 


TAX 


93 


* * * 


000233 


[ 80] 


TAY 


76 


* * * 


000234 


[ 81] 


TSTERR 


1 


* 


000235 


[ 82] 


TSX 


7 


** 


000236 


[ 83] 


TXA 


82 


* * * 
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000237 
000238 
000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 



[ 84] TXS 6 
[ 85] TYA 58 
[ 86] ZZLEN-LENLODR 1 

Sorted by Static Frequency: 



Opcode count 
Min frequency 
Max frequency 



1 

1864 



Opcode Name Freq Histogram 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 



LDA 

STA 

EQU 

JSR 

LDY 

REP 

BNE 

RTS 

BEQ 

CMP 

BCS 

LDX 

PAGE 

EXTRN 

BCC 

DS 

JMP 

ENTRY 

DFB 

CLC 

AND 

INY 

SEC 

INC 

DEY 

ADC 

BPL 

SBC 

ORA 

LSR 

TAX 

PLA 

PHA 

STX 

DW 

TXA 

STY 

TAY 



1864 
1406 
1134 
546 
450 
417 
397 
324 
291 
286 
274 
266 
246 
242 
240 
210 
199 
190 
188 
181 
147 
143 
136 
131 
126 
125 
121 
111 
100 
93 
93 
91 
90 
84 
83 
82 
78 
76 



* ** * * 

* * * * * 

* * * * * 

* * * * * 

* * * * * 

* * * * * 

* * * * * 

* * * * * 

* * * * * 

* * * * * 
***** 

* * * * * 

* * * * * 

* * * * * 

* * * * * 

* * * * * 

* * * * * 
***** 

* * * * * 
***** 

* * * * * 
**** 
**** 
**** 

* * * * 

* * * * 

* * * * 

* * * * 
**** 

* * * 

* * * 
*** 

* * * 

* * * 

* * * 



*********************************** 

************************** 

******************** 

******** 

****** 

* * * * * 

* * * * * 

* * * 

* * * 

* * 
** 
** 
** 

* * 
** 
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000287 


[ 39] 


DEX 


75 


*** 


000288 


[ 40] 


DEC 


73 


* * * 


000289 


[ 41] 


BMI 


59 


*** 


000290 


[ 42] 


BIT 


58 


* * * 


000291 


[ 43] 


TYA 


58 


* * * 


000292 


[ 44] 


CPY 


56 


* * * 


000293 


[ 45] 


ASL 


46 


* * 


000294 


[ 46] 


CPX 


40 




000295 


[ 47] 


INX 


33 


* * 


000296 


[ 48] 


ASC 


32 


* * 


000297 


[ 49] 


SBTL 


32 


* * 


000298 


[ 50] 


CHN 


28 


** 


000299 


[ 51] 


FIN 


27 


** 


000300 


[ 52] 


ORG 


24 


** 


000301 


[ 53] 


PHP 


23 


** 


000302 


[ 54] 


ROR 


23 


* * 


000303 


[ 55] 


SEI 


23 


** 


000304 


[ 56] 


MSB 


22 


* * 


000305 


[ 57] 


EOR 


21 


* * 


000306 


[ 58] 


INCLUDE 


21 


* * 


000307 


[ 59] 


PLP 


20 


* * 


000308 


[ 60] 


FAIL 


17 


* * 


000309 


[ 61] 


IFNE 


16 


** 


000310 


[ 62] 


REL 


16 


** 


000311 


[ 63] 


ROL 


14 


** 


000312 


[ 64] 


LST 


13 


* * 


000313 


[ 65] 


BRK 


12 


** 


000314 


[ 66] 


BVC 


12 


** 


000315 


[ 67] 


DO 


10 


** 


000316 


[ 68] 


BVS 


7 


** 


000317 


[ 69] 


TSX 


7 




000318 


[ 70] 


TXS 


6 




000319 


[ 71] 


CLI 


5 


* * 


000320 


[ 72] 


ELSE 


5 


** 


000321 


[ 73] 


CLV 


4 




000322 


[ 74] 


DEND 


4 


* * 


000323 


[ 75] 


DSECT 


4 


** 


000324 


[ 76] 


CLD 


3 


** 


000325 


[ 77] 


RTI 


3 


** 


000326 


[ 78] 


SKP 


3 


** 


000327 


[ 79] 


.PAGE 


2 


** 


000328 


[ 80] 


NOP 


2 


★ * 


000329 


[ 81] 


CHR 


1 




000330 


[ 82] 


ERROR 


1 




000331 


[ 83] 


IBUFSIZ 


1 


* 


000332 


[ 84] 


SBUFSIZ 


1 


* 


000333 


[ 85] 


TSTERR 


1 




000334 


[ 86] 


ZZLEN-LENLODR 


1 




000335 










000336 
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000339 
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000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 



DOCUMENT : SOS1 . 3 . lof 5 . ONE : SOS . BFM . INIT2 . SRC . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: BFM . INIT2 . SRC 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



SBTL 
REL 

INCLUDE 
ORG 
MSB 
REP 

COPYRIGHT (C) 



"SOS 1.1 BFM. INIT2 " 



SOSORG, 6,1,254 

ORGBFMI 

OFF 

60 

APPLE COMPUTER INC. 



1980 



REP 



ALL RIGHTS RESERVED 

60 



BLOCK FILE MANAGER INIT2 

SECONDARY INITIALIZATION ROUTINE FOR BLOCK FILE MANAGER 

MODIFIED: 03/25/81 TO UTILIZE NEW 
DISK DRIVER'S SEEKDSK3 ROUTINE. 
CHANGES MARKED BY 'D3RRA81084' 

MODIFIED: 08/19/81 TO WORK WITH NEW 
SOSLDR MODULE. 

REP 60 



ENTRY 



BFM. INIT2 



*EXTRN I. BASE. P 



; ENTRY IN SOSLDR 
EXTRN SYSBANK 



I . BASE . P 



* CONSTANTS 

KERNEL . BASE 

ROMID 

SLOT 

BEGTRK 

BEGSECT 



EXTRN 

EXTRN 

EXTRN 

EXTRN 

EQU 

PAGE 



EQU 
EQU 
EQU 
EQU 
EQU 



SXPAGE 
CZPAGE 
SEEKDSK3 
NMIDSBL 

$2 



$B800 

$A0 

$60 

$9 
$2 



;IN DISKDH/D3RRA81084 
; /D3RRA81084 



; BASE ADDRESS OF SOS KERNEL 
;$F1B9 OF NEW ROM/D3RRA81084 
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000389 


ENDSECT 


EQU 


$6 


000390 








000391 


* ZERO PAGE 






000392 


* 






000393 


TRACK 


EQU 


$99 


000394 


SECTOR 


EQU 


$98 


000395 


VOLUME 


EQU 


$9A 


000396 


KEY 


EQU 


$E0 


000397 


PREV.K 


EQU 


KEY+$8 


000398 


XIDX 


EQU 


KEY+$9 


000399 


I 


EQU 


KEY+$A 


000400 








000401 


* ROM ROUTINES 




000402 








000403 


RDADR 


EQU 


$F1B9 


000404 


RDADRX 


EQU 


$F1BD 


000405 








000406 


* HARDWARE 


LOCATIONS 




000407 








000408 


E.REG 


EQU 


$FFDF 


000409 


B.REG 


EQU 


$FFEF 


000410 


MOTORON 


EQU 


$C089 


000411 


MOTOROFF 


EQU 


$C088 


000412 




PAGE 




000413 




REP 


60 


000414 








000415 


* BFM.INIT2 


ENTRY POINT 




000416 








000417 




REP 


60 


000418 








000419 


STATE 


DFB 


$FE 


000420 








000421 


BFM. INIT2 


EQU 


★ 


000422 




INC 


STATE 


000423 




BMI 


BFMI050 


000424 




JSR 


GETK 


000425 




LDA 


RETRY 


000426 




BEQ 


BADNEWS 


000427 




BCC 


BFMI050 


000428 




JSR 


NMIDSBL 


000429 




JSR 


DC 


000430 




INC 


STATE 


000431 


BFMI050 


CLC 




000432 




RTS 




000433 


BADNEWS 


SEC 




000434 




RTS 




000435 




PAGE 




000436 




REP 


60 


000437 


* 






000438 


* DECODE SUBROUTINE 





; THRU $E7 
; & $B 



;REV1 
;REV0 



; FF=1ST ENTRY, 0=2ND ENTRY, l=PROT 



; I/O ERROR 
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000439 




















000440 


* TO 


ENCODE : 
















000441 


* 


E0.E8: 


_ 


INI1 


KEY & PREV.K 








000442 


* 


B84E:4C 64 


B8 - 


JUMPS AROUND INTERP 


S 3 BYTE 


OVERWRITE 


000443 




1A02.1A03: 




NEW 


INTERP' S LOAD ADR (LO, 


HII) 


000444 




B81DG: 


_ 


JSR 


FROM MONITOR 








000445 


* 


















000446 






REP 




60 










000447 


DC 




EQU 














000448 






LDA 




B.REG 








SAVE BANK REGISTER 


000449 






PHA 














000450 






LDA 




SYSBANK 








AND SWITCH TO SYSTEM BANK 


000451 






STA 




B.REG 










000452 






CLC 












FETCH LOADER'S INTERPRETER POINTER 


000453 






LDA 




CZPAGE+I 


BASE 


P 






000454 






ADC 




#3 










000455 






STA 




I 










000456 






PHA 














000457 






LDA 




CZPAGE+I 


BASE 


P + l 






000458 






ADC 




#0 










000459 






STA 




1 + 1 










000460 






PHA 














000461 






LDA 




#0 










000462 






STA 




SXPAGE+I+1 








000463 




















000464 






LDY 




I 








ALIGN I PTR TO PAGE BOUNDARY 


000465 






LDA 




#0 










000466 






STA 




I 










000467 






STA 




PREV.K 










000468 




















000469 






JSR 




DCLOOP 








DECODE 


000470 




















000471 






PLA 












RETRIEVE LOADER'S INTERPRETER POINTER 


000472 






STA 




1 + 1 










000473 






PLA 














000474 






STA 




I 










000475 




















000476 






LDY 




#1 








REPOSITION LOADER'S INTERPRETER POINTER 


000477 






LDA 




(I) ,Y 










000478 






STA 




CZPAGE+I 


BASE 


P 






000479 






INY 














000480 






LDA 




(I) ,Y 










000481 






STA 




CZPAGE+I 


BASE 


P+l 






000482 


* 


















000483 






LDY 




#2 






r 


WALK ON INTERPRETER'S FIRST INSTRUCTION 


000484 






LDA 




#0 










000485 


DCA 




STA 




(I) ,Y 










000486 






DEY 














000487 






BPL 




DCA 










000488 






PLA 










r 


RESTORE BANK REGISTER (ENCODE JMP JUMPS 



(3 BYTES) 
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000489 
000490 
000491 
000492 
000493 
000494 
000495 
000496 
000497 
000498 
000499 
000500 
000501 
000502 
000503 
000504 
000505 
000506 
000507 
000508 
000509 
000510 
000511 
000512 
000513 
000514 
000515 
000516 
000517 
000518 
000519 
000520 
000521 
000522 
000523 
000524 
000525 
000526 
000527 
000528 
000529 
000530 
000531 
000532 
000533 
000534 
000535 
000536 
000537 
000538 



STA 
RTS 
PAGE 
REP 

* DECODE LOOP SUBROUTINE 



DCLOOP 



DC1 



DC2 



GETKEY 



RETRY 
OURTRACK 



REP 
EQU 
LDX 
CLC 
LDA 
BPL 
SEC 
ROL 
DEX 
BPL 

TYA 

AND 

EOR 

TAX 

LDA 

PHA 

AND 

TAX 

PLA 

CLC 

ADC 

CLC 

ADC 

STA 

EOR 

STA 

INY 

BNE 

INC 

LDA 

CMP 

BCC 

RTS 

PAGE 

REP 

SUBROUTINE 
REP 

DFB 

DS 



B.REG 

60 

60 

★ 

#7 

KEY 
DC1 

KEY, X 

DC1 

#7 
#2 

KEY, X 

#7 

PREV.K 

KEY, X 
PREV.K 

(I) ,Y 

(I) ,Y 

DC2 
1 + 1 
1 + 1 

#<KERNEL . BASE 
DCLOOP 

60 



60 

10+1 

1 



; SHIFT LEFT ONE BIT 



DECODE BYTE 
AND PUT IT BACK 



; TEN RETRIES 

; CURRENT TRACK/D3RRA81084 
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000539 










000540 


GETK 


EQU 


* 




000541 




LDX 


#7 




000542 




STX 


XIDX 




000543 




LDX 


#SLOT 




000544 




LDA 


MOTORON, X 


; ENSURE MOTOR STAYS ON 


000545 




LDA 


E.REG 


; SELECT 1MHZ, ROM 


000546 




ORA 


#$83 




000547 




STA 


E.REG 




000548 










000549 


* NOTE: THE 


SEEKDSK3 


ROUTINE HAS THESE /D3RRA810 


84 


000550 


* CAVEATS : 


1MHZ MODE 


, MOTOR IS ON, /D3RRA81084 




000551 


* DRIVE CURRENTLY SELECTED, ROM+I/O ENABLED! /D3RRA81084 


000552 










000553 


GETK010 


LDA 


#BEGTRK 




000554 




STA 


OURTRACK 


; WHERE WE SEEK TO /D3RRA81084 


000555 




JSR 


SEEKDSK3 


; HAVE DISKDH SEEK FOR US /D3RRA81084 


000556 


GETK020 


LDX 


#SLOT 




000557 




JSR 


DOREAD 


; FIND A SECTOR HEADER 


000558 




BCS 


IOERROR 


; =>RETRY IF BAD 


000559 




LDA 


SECTOR 


; WHERE ARE WE? 


000560 




CMP 


#BEGSECT 


; AT THE RIGHT PLACE? 


000561 




BNE 


GETK020 


;=>NO, GET THERE 


000562 










000563 


GETK100 


LDX 


#1 




000564 




JSR 


WAIT 


; (X * 1284) + 15 MILISECONDS 


000565 




LDX 


XIDX 




000566 




LDA 


VOLUME 




000567 




STA 


KEY, X 




000568 




DEC 


XIDX 




000569 




BMI 


ENUFF 




000570 




INC 


OURTRACK 


;BUMP FOR NEXT TRACK /D3RRA81084 


000571 




LDA 


OURTRACK 


; WHERE TO GO /D3RRA81084 


000572 




LDX 


#SLOT 




000573 




JSR 


SEEKDSK3 


; DISKDH, PLEASE SEEK ME /D3RRA81084 


000574 




LDX 


#SLOT 




000575 




JSR 


DOREAD 




000576 




BCC 


GETK100 




000577 




BCS 


IOERROR 




000578 










000579 


ENUFF 


LDX 


#SLOT 




000580 




LDA 


MOTOROFF,X 




000581 




LDA 


E.REG 


; SELECT 2 MHZ , RAM 


000582 




AND 


#$7C 




000583 




STA 


E.REG 




000584 




PAGE 






000585 




LDA 


SECTOR 




000586 




CMP 


#ENDSECT 


; TRACKS SYNCED? 


000587 




BNE 


NOTPROT 




000588 




LDA 


KEY 
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000589 
000590 
000591 
000592 
000593 
000594 
000595 
000596 
000597 
000598 
000599 
000600 
000601 
000602 
000603 
000604 
000605 
000606 
000607 
000608 
000609 
000610 
000611 
000612 
000613 
000614 
000615 
000616 
000617 
000618 
000619 
000620 
000621 
000622 
000623 
000624 
000625 
000626 
000627 
000628 
000629 
000630 
000631 
000632 
000633 
000634 
000635 
000636 



NOTPROT 



D OREAD 



OLDREAD 



WHICHROM 



NEWROM 



IOERROR 



ERR1 



WAIT 
Wl 



ZZLEN 



EOR 
BEQ 
SEC 
RTS 

LDA 
CLC 
RTS 



JSR 
BCS 
JMP 
JMP 



LDA 
CMP 
CLC 
BEQ 
SEC 
RTS 



DEC 
BEQ 
JMP 
JMP 



LDY 
DEY 
BNE 
DEX 
BNE 
RTS 

EQU 
IFNE 
FAIL 
FIN 



KEY+1 
NOTPROT 



#0 



WHICHROM 
OLDREAD 
RDADR 
RDADRX 



RDADR 
#ROMID 

NEWROM 



RETRY 
ERR1 
GETK 
ENUFF 



#0 
Wl 
Wl 



$400 

ZZLEN-LENBFMI 
2, "SOSORG 



; IF FIRST 2 VOLS ARE EQUAL 



TRY, TRY AGAIN 

I/O ERROR, CLEANUP AND EXIT 



FILE IS INCORRECT FOR BFM.INIT2" 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: BFM. INIT2 . SRC 

************************************************************************* 
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000637 
000638 
000639 
000640 
000641 
000642 
000643 
000644 
000645 
000646 
000647 
000648 
000649 
000650 
000651 
000652 
000653 
000654 
000655 
000656 
000657 
000658 
000659 
000660 
000661 
000662 
000663 
000664 
000665 
000666 
000667 
000668 
000669 
000670 
000671 
000672 
000673 
000674 
000675 
000676 
000677 
000678 
000679 
000680 
000681 
000682 
000683 
000684 
000685 



DOCUMENT : SOS1 . 3 . lof 5 . ONE : SOS . INIT . SRC . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: INIT. SRC 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

"SOS 1.1 INITIALIZATION" 



SOSORG, 6, 1, 254 
ORGINIT 



SBTL 
REL 

INCLUDE 
ORG 

ZZORG EQU * 

MSB OFF 
REP 100 

* COPYRIGHT (C) APPLE COMPUTER INC. 

* ALL RIGHTS RESERVED 
REP 100 

* SOS INIT MODULE (VERSION =1.10 ) 

* (DATE = 8/04/81) 



REP 


100 


ENTRY 


INT. INIT 


ENTRY 


EVQ. INIT 


ENTRY 


CLK. INIT 


ENTRY 


MMGR. INIT 


ENTRY 


BMGR. INIT 


ENTRY 


DMGR. INIT 


ENTRY 


CFMGR. INIT 


ENTRY 


BFM. INIT 



* EXTERNAL SUBROUTINES & DATA 



EXTRN 
EXTRN 



SXPAGE 
SYSDEATH 



INTERRUPT SYSTEM INITIALIZATION 



EXTRN 


COLDSTRT 


EXTRN 


IRQ.RCVR 


EXTRN 


NMI . RCVR 


EXTRN 


NMIFLAG 


EXTRN 


SIRTABLE 


EXTRN 


SIRTBLSIZ 


EXTRN 


ZPGSTACK 


EXTRN 


ZPGSTART 
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000686 


* 








000687 




EVENT 


QUEUE INITIALIZATION 


000688 










000689 






EXTRN 


EV . QUEUE 


000690 






EXTRN 


EVQ . LEN 


000691 






EXTRN 


EVQ . CNT 


000692 






EXTRN 


EVQ.SIZ 


000693 






EXTRN 


EVQ . FREE 


000694 






EXTRN 


EVQ. LINK 


000695 










000696 




CLOCK 


INITIALIZATION 




000697 










000698 






EXTRN 


PCLOCK 


000699 


* 








000700 




CHARACTER FILE MANAGER 


INITIALIZA' 


000701 


* 








000702 






EXTRN 


CFCB.MAX 


000703 






EXTRN 


CFCB.DEV 


000704 


* 








000705 


* 


DEVICE 


MANAGER INITIALIZATION 


000706 


* 








000707 






EXTRN 


DMGR 


000708 






EXTRN 


MAX . DNUM 


000709 










000710 


* 


BUFFER 


MANAGER INITIALIZATION 


000711 










000712 






EXTRN 


BUF . CNT 


000713 






EXTRN 


PGCT.T 


000714 






EXTRN 


XBYTE . T 


000715 






EXTRN 


BUFREF 


000716 


* 








000717 


* 


MEMORY 


MANAGER INITIALIZATION 


000718 


* 








000719 






EXTRN 


ST . CNT 


000720 






EXTRN 


ST . ENTRY 


000721 






EXTRN 


ST. FREE 


000722 






EXTRN 


ST.FLINK 


000723 






EXTRN 


VRT.LIM 


000724 






EXTRN 


MEMSIZE 


000725 






EXTRN 


MEM2SML 


000726 


* 








000727 


* 


BLOCK 


FILE MANAGER INITIALIZATION 


000728 










000729 






EXTRN 


FCBZPP 


000730 






EXTRN 


PATHBUF 


000731 






EXTRN 


VCB 


000732 






EXTRN 


WORKSPC 


000733 






EXTRN 


PFIXPTR 


000734 






EXTRN 


FCBADDRH 


000735 






EXTRN 


BMAPAGE 
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000736 
000737 
000738 
000739 
000740 
000741 
000742 
000743 
000744 
000745 
000746 
000747 
000748 
000749 
000750 
000751 
000752 
000753 
000754 
000755 
000756 
000757 
000758 
000759 
000760 
000761 
000762 
000763 
000764 
000765 
000766 
000767 
000768 
000769 
000770 
000771 
000772 
000773 
000774 
000775 
000776 
000777 
000778 
000779 
000780 
000781 
000782 
000783 
000784 
000785 



EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 

CONSTANT DECLARATIONS 



TRUE 
FALSE 
BITON6 
BITON7 



EQU 
EQU 
EQU 
EQU 



BMBPAGE 
BMAMADR 
BMBMADR 
BFMFCB1 
BFMFCB2 



$80 
$00 
$40 
$80 



SYSTEM CONTROL REGISTERS 



E.REG 
Z.REG 



EQU 
EQU 
SBTL 



$FFDF 
$FFD0 



; ENVIRONMENT REGISTER 
;ZERO PAGE REGISTER 



6522 REGISTERS 



D . DDRB 

D.DDRA 

D.ACR 

D.PCR 

D.IFR 

D. IER 
E . IORB 

E . DDRB 
E.DDRA 
E.ACR 
E.PCR 
E.IFR 
E.IER 
ACIASTAT 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



REP 



"INTERRUPT SYSTEM INITIALIZATION" 



$FFD2 
$FFD3 
$FFDB 
$FFDC 
$FFDD 
$FFDE 
$FFE0 
$FFE2 
$FFE3 
$FFEB 
$FFEC 
$FFED 
$FFEE 
$C0F1 



60 



THIS SUBROUTINE INITIALIZES THE INTERRUPT SYSTEM. 
ALL HARDWARE INTERRUPTS ARE MASKED AND THE 
INTERRUPT ALLOCATION TABLE IS CLEARED. 



INT.INIT 



REP 



EQU 
SEI 
LDA 
STA 



60 



#>ZPGSTART 
ZPGSTACK 



DISABLE INTERRUPTS 
SET UP MIH 

ZERO PAGE STACK POINTER 
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000786 


* 








000787 




LDA 


E.REG 


; SELECT $C000 I/O SPACE 


000788 




PHA 




; AND SET 1 MHZ 


000789 




ORA 


#BITON7+BITON6 




000790 




STA 


E.REG 




000791 


* 








000792 




STA 


ACIASTAT 


; RESET ACIA 


000793 










000794 




LDA 


#$FF 


;SET UP 6522 D 


000795 




STA 


D . DDRB 




000796 




STA 


D.DDRA 




000797 




LDA 


#$00 




000798 




STA 


D.ACR 




000799 




LDA 


#$76 




000800 




STA 


D.PCR 




000801 




LDA 


#$7F 




000802 




STA 


D . IFR 




000803 




STA 


D. IER 




000804 




LDA 


#$82 




000805 




STA 


D. IER 




000806 










000807 




LDA 


#$3F 


;SET UP 6522 E 


000808 




STA 


E . DDRB 




000809 




LDA 


#$0F 




000810 




STA 


E.DDRA 




000811 




LDA 


#$00 




000812 




STA 


E.ACR 




000813 




LDA 


#$63 




000814 




STA 


E.PCR 




000815 




LDA 


#$7F 




000816 




STA 


E. IFR 




000817 




STA 


E. IER 




000818 










000819 




LDA 


#$FF 




000820 




STA 


E . IORB 


; SOUND PORT 


000821 




BIT 


$C0D8 


; DISABLE GRAPHICS SCROLL 


000822 




BIT 


$C0DA 


; DISABLE CHARACTER DOWNLOAD 


000823 




BIT 


$C0DC 


; DISABLE ENSEL 


000824 




BIT 


$C0DE 


;SET ENSIO FOR INPUT 


000825 


* 








000826 




PLA 




; RESTORE E REGISTER 


000827 




STA 


E.REG 




000828 










000829 




LDA 


#FALSE 




000830 




STA 


NMIFLAG 


; CLEAR NMI WAIT FLAG 


000831 




LDY 


#>SIRTBLSIZ-1 




000832 


INTI010 


STA 


SIRTABLE, Y 


; ALLOCATION TABLE 


000833 




DEY 






000834 




BPL 


INTI010 




000835 




LDA 


#TRUE 
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000836 


STA 


SIRTABLE+$0A 


000837 






000838 


LDX 


#$05 


000839 


INTI020 LDA 


RAMVECT, X 


000840 


STA 


$FFFA, X 


000841 


LDA 


RAMJMPS, X 


000842 


STA 


$FFCA,X 


000843 


DEX 




000844 


BPL 


INTI020 


000845 


RTS 




000846 






000847 


RAMVECT DW 


NMI . RCVR 


000848 


DW 


COLDSTRT 


000849 


DW 


IRQ. RCVR 


000850 


RAMJMPS JMP 


NMI . RCVR 


000851 


JMP 


IRQ. RCVR 


000852 


SBTL 


"EVENT QUEUE 


000853 


REP 


60 


000854 






000855 


* THIS SUBROUTINE INITIALIZES THE EVENT 


000856 


* ARE CLEARED AND LINKED 


INTO THE FREE 


000857 


* LIST IS EMPTY. 




000858 






000859 


REP 


60 


000860 






000861 






000862 


EVQ.INIT EQU 




000863 






000864 


* CLEAR ALL ENTRIES 




000865 






000866 


LDY 


#>EVQ . LEN 


000867 


LDA 


#0 


000868 


EVQI010 STA 


EV . QUEUE-1 , Y 


000869 


DEY 




000870 


BNE 


EVQI010 


000871 






000872 


* SET UP FREE LIST 




000873 






000874 


LDX 


#>EVQ.CNT-2 


000875 


LDA 


#>EVQ.SIZ 


000876 


STA 


EVQ . FREE 


000877 


EVQI020 TAY 




000878 


CLC 




000879 


ADC 


#>EVQ.SIZ 


000880 


STA 


EVQ. LINK, Y 


000881 


DEX 




000882 


BNE 


EVQI020 


000883 


RTS 




000884 


SBTL 


"PSEUDO CLOCK 


000885 


REP 


60 



;LOCK DOWN ANY SLOT SIR 



SET UP VECTORS 

AT $FFFA - $FFFF 

SET UP JMP INSTRUCTIONS 
AT $FFCA - $FFCF 



. ALL ENTRIES 
THE ACTIVE 
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000886 














000887 


* THIS SUBROUTINE INITIALIZES THE PSEUDO 


CLOCK. IF THE 


000888 


* RAM BEHIND 


THE "D" 


6522 


HAS THE PROPER 


CHECKSUM, IT 


000889 


* IS USED 


TO 


INITIALIZE THE PSEUDO CLOCK 


OTHERWISE, 


000890 


* THE PSEUDO 


CLOCK IS 


SET 


TO ZERO. 




000891 














000892 


* (ADDED 23 


OCT 81) 








000893 


* BOTH THE 


CLOCK AND PSEUDO CLOCK ARE 




000894 


* ARE NOW INITIALIZED 








000895 














000896 






REP 




60 




000897 














000898 


PCLK 




EQU 




$F0 




000899 


CKSUM 




EQU 




$F2 




000900 


CLKICR 




EQU 




$11 


; CLOCK INTERRUPT CONTROL 


000901 


CLKSTBY 




EQU 




$16 


; CLOCK STANDBY INTERRUPT 


000902 


CLOCK 




EQU 




$C070 




000903 














000904 


CLK . INIT 




EQU 




* 




000905 






LDA 




#$D0 




000906 






STA 




PCLK 


; POINT (PCLK) TO 8F : FFD0 


000907 






LDA 




#$FF 




000908 






STA 




PCLK+1 




000909 






LDA 




#$8F 




000910 






STA 




SXPAGE+PCLK+1 




000911 






LDA 




#$A5 




000912 






STA 




CKSUM 


; INITIALIZE CHECKSUM 


000913 


* 












000914 






LDY 




#$00 




000915 


CLK010 




LDA 




(PCLK) , Y 


;COPY SAVED CLOCK DATA 


000916 






STA 




PCLOCK, Y 


; TO PSEUDO CLOCK 


000917 






EOR 




CKSUM 




000918 






STA 




CKSUM 


; UPDATE CHECKSUM 


000919 






INY 








000920 






CPY 




#$0A 




000921 






BCC 




CLK010 




000922 


* 












000923 






CMP 




(PCLK) , Y 


; TEST CHECKSUM 


000924 






BEQ 




CLK030 




000925 


* 












000926 






LDA 




#$00 




000927 


CLK020 




DEY 








000928 






STA 




PCLOCK, Y 


;ZERO PSEUDO CLOCK 


000929 






BNE 




CLK020 




000930 


CLK030 




LDA 




E.REG 




000931 






PHA 








000932 






ORA 




#$80 


; SET 1 MHZ 


000933 






STA 




E.REG 




000934 






LDA 




#$00 




000935 






LDY 




Z.REG 
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000936 


LDX 


#CLKICR 


000937 


STX 


Z.REG 


000938 


STA 


CLOCK ; DISABLE CLOCK INTERRUPTS 


000939 


LDX 


#CLKSTBY 


000940 


STX 


Z.REG 


000941 


STA 


CLOCK ; DISABLE STANDBY INTERRUPT 


000942 


STY 


Z.REG 


000943 


PLA 




000944 


STA 


E.REG 


000945 


RTS 




000946 


SBTL 


"CHARACTER FILE MANAGER INITIALIZATION" 


000947 


REP 


60 


000948 


* 




000949 


* CHAR FILE MANAGER INITIALIZATION ROUTINE 


000950 






000951 


* CFMGR.INIT INITIALIZES 


ALL ENTRIES IN THE CFCB TABLE TO 


000952 


* THE "FREE" STATE. 




000953 






000954 


REP 


60 


000955 






000956 


CFMGR.INIT EQU 


* 


000957 


LDA 


#$80 


000958 


LDX 


#CFCB.MAX-1 


000959 


CFINIT010 STA 


CFCB . DEV, X 


000960 


DEX 




000961 


BPL 


CFINIT010 


000962 


RTS 




000963 


SBTL 


"DEVICE MANAGER INITIALIZATION" 


000964 


REP 


60 


000965 






000966 


* DEVICE MANAGER INITIALIZATION ROUTINE 


000967 


* 




000968 


* INITIALIZES THE SYSTEM 


DEVICE TABLE (SDT) BY WALKING THE 


000969 


* DEVICE INFORMATION BLOCK (DIB) LINKS. CALLED BY SYSLDR. 


000970 






000971 


REP 


60 


000972 






000973 


D . TPARMX EQU 


$C0 


000974 


REQCODE EQU 


D.TPARMX+$00 


000975 


DNUM EQU 


D.TPARMX+$01 


000976 


DNUM.TEMP DS 


1 


000977 


* 




000978 






000979 


DMGR.INIT EQU 


* 


000980 


LDX 


MAX . DNUM 


000981 


INC 


MAX. DNUM ; MAX . DNUM : =MAX DEV NUMBER 


000982 


STX 


DNUM.TEMP 


000983 


DMI110 LDA 


#8 ; INITIALIZE ALL DEVICES IN 


000984 


STA 


REQCODE 


000985 


LDA 


DNUM.TEMP 
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000986 




STA 




DNUM 


000987 




JSR 




DMGR 


000988 




DEC 




DNUM. TEMP 


000989 




BNE 




DMI110 


000990 




RTS 




; NORMAL EXIT 


000991 




SBTL 




"BUFFER MANAGER INITIALIZATION" 


000992 




REP 




60 


000993 


* 








000994 


* BMGR.INIT 








000995 










000996 


* THIS ROUTINE 


INITIALIZES 


THE BUFFER TABLE'S ENTRIES TO "FREE". 


000997 


* CALLED DURING SYSTEM 


BOOT. 


000998 


* 








000999 




REP 




60 


001000 


* 








001001 


BMGR. INIT 


EQU 






001002 




LDA 




#$FF ; USED WHEN FINDING LOWEST 


001003 




STA 




XBYTE . T 


001004 










001005 




LDX 




#BUF.CNT-1 


001006 




LDA 




#$80 


001007 


BUFI010 


STA 




PGCT.T,X ;SET ALL ENTRIES "FREE" 


001008 




DEX 






001009 




BNE 




BUFI010 


001010 










001011 




STX 




BUFREF ;ZERO COUNT BYTE IN BUFFER 


001012 










001013 




CLC 






001014 




RTS 






001015 




SBTL 




"MEMORY MANAGER INITIALIZATION" 


001016 




REP 




60 


001017 










001018 


* MMGR.INIT 








001019 










001020 


* THIS ROUTINE 


INITIALIZES 


THE MEMORY MANAGER'S SEGMENT TABLE 


001021 


* TO FREE ENTRIES, AND 


DETERMINES THE MEMORY SIZE OF THE 


001022 


* MACHINE (96K, 


128K, 160K, 192K, 224K, 256K, . . , 512K IN 32K STEPS). 


001023 










001024 




REP 




60 


001025 










001026 


MMGR. INIT 


EQU 




★ 


001027 










001028 


* INIT SEGMENT 


TABLE 






001029 










001030 




LDA 




#0 


001031 




STA 




ST . ENTRY 


001032 




LDA 




#$81 


001033 




STA 




ST. FREE 


001034 


* 








001035 




LDY 




#ST.CNT-1 



Apple / // Sophisticated Operating System (SOS) 1.3 Source Code Listing » PTC 8/ 2001 » Page 26 of 391 



Apple / / / Computer I nformation 



001036 






LDA #$80 


; SET LAST LINK TO NULL 


001037 






STA ST . FLINK, Y 




001038 


MEMI010 


TYA 




001039 






ORA #$80 




001040 






DEY 




001041 






STA ST. FLINK, Y 




001042 






BNE MEMI010 




001043 










001044 


* 


COMPUTE 


VIRTUAL LIMIT FROM MEMORY SIZE 




001045 


* 


VRT . LIM 


:= NUMBER OF PAGES IN BANK SWITCHED 


MEMORY - 1 


001046 






:= (MEMSIZ-2) *64 - 1 




001047 






:= (MEMSIZ-4) *64 + 127 




001048 










001049 






SEC 




001050 






LDA MEMSIZE 




001051 






SBC #4 




001052 






BCC MEMI . ERR 




001053 






LSR A 




001054 






LSR A 




001055 






STA VRT.LIM+1 




001056 






LDA #$FE 




001057 






ROR A 




001058 






STA VRT. LIM 




001059 






CLC 




001060 






RTS 


; NORMAL EXIT 


001061 










001062 


MEMI . ERR 


LDA #MEM2 SML 


; FATAL ERR - MEM < 64K 


001063 






JSR SYSDEATH 




001064 






PAGE 




001065 






REP 60 




001066 










001067 


* 


BLOCK FILE MANAGER INITIALIZATION 




001068 










001069 






REP 60 




001070 










001071 


SISTER 


EQU $1400 


; BFM XPAGE 


001072 


BFM. INIT 


EQU * 




001073 






LDA #BFMFCB1 


; ADDRESS OF PAGE 1 OF FCB 


001074 






STA >FCBZPP+1 




001075 






LDA #BFMFCB2 


; AND PAGE 2 


001076 






STA >FCBZPP+3 




001077 






LDA #0 




001078 






STA >FCBZPP 


; FCB PAGE ALIGNED 


001079 






STA >FCBZPP+2 




001080 






STA SISTER+FCBZPP+1 


; PREPARE PART OF EXTEND BYTE 


001081 






STA SISTER+FCBZPP+3 




001082 






TAY 


; MAKE ZERO INTO INDEX 


001083 


CLRBUFFS 


EQU * 




001084 






STA PATHBUF , Y 


; PATHNAME BUFFER PAGE 


001085 






STA VCB,Y 


; VOLUME CONTROL BLOCK PAGE 
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001086 




STA 


(>FCBZPP) , Y 


; BOTH FILE CONTROL BLOCK PAGES 


001087 




STA 


(>FCBZPP+2) , Y 




001088 




INY 






001089 




BNE 


CLRBUFFS 




001090 




LDX 


#$3F 


; SIZE OF MY ZERO PAGE STUFF 


001091 


CLRZWRK 


STA 


o,x 


; ZERO PAGE ZEROED 


001092 




STA 


WORKSPCX 




001093 




DEX 






001094 




BPL 


CLRZWRK 




001095 




LDA 


#<PATHBUF 




001096 




STA 


PFIXPTR+1 




001097 




LDA 


#BFMFCB1 




001098 




STA 


FCBADDRH 




001099 




LDA 


#BMAPAGE 


; BIT MAP A PAGE NUMBER 


001100 




STA 


BMAMADR 




001101 




LDA 


#BMBPAGE 


; BIT MAP B PAGE NUMBER 


001102 




STA 


BMBMADR 




001103 




CLC 






001104 




RTS 






001105 


* 








001106 




LST 


ON 




001107 


ZZEND 


EQU 


* 




001108 


ZZLEN 


EQU 


ZZEND-ZZORG 




001109 




IFNE 


ZZLEN-LENINIT 




001110 




FAIL 


2, "SOSORG 


FILE IS INCORRECT FOR INIT" 


001111 




FIN 






001112 










001113 


************************************************************************* 


001114 


* END OF APPLE 


/// SOS 


1.3 SOURCE CODE FILE: 


INIT.SRC 


001115 


************************************************************************* 


001116 










001117 
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001118 
001119 
001120 
001121 
001122 
001123 
001124 
001125 
001126 
001127 
001128 
001129 
001130 
001131 
001132 
001133 
001134 
001135 
001136 
001137 
001138 
001139 
001140 
001141 
001142 
001143 
001144 
001145 
001146 
001147 
001148 
001149 
001150 
001151 
001152 
001153 
001154 
001155 
001156 
001157 
001158 
001159 
001160 
001161 
001162 
001163 
001164 
001165 
001166 



DOCUMENT : SOS1 . 3 . lof 5 . ONE : SOS . IPL . SRC1 . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: IPL.SRC1 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



SOSORG, 6, 1, 254 
ORGIPL 



ZZORG 



SBTL 
REL 

INCLUDE 
ORG 

EQU * 
MSB OFF 
REP 60 
COPYRIGHT (C) APPLE COMPUTER INC 
ALL RIGHTS RESERVED 
REP 60 



"SOS 1.1 INTRPTS. & PROC. LAUNCH" 



1980 



THIS MODULE IS RESPONSIBLE FOR FIELDING ALL INTERRUPTS 
AND RELAUNCHING THE INTERRUPTED CODE AFTER THE INTERRUPTS 
HAVE BEEN PROCESSED. THE MAJOR FUNCTIONAL AREAS ARE: 

GENERAL INTERRUPT RECEIVER 
NMI INTERRUPT RECEIVER 
DISPATCHER 

INTERRUPT ALLOCATION & DEALLOCATION 
EVENT QUEUE MANAGER 
TABLE INITIALIZATION 

REP 60 

SUBROUTINE ENTRY POINTS 



ENTRY 


IRQ . RCVR 


GENERAL INTERRUPT RECEIVER 


ENTRY 


NMI . RCVR 


NON-MASKABLE INTRPT RCVR 


ENTRY 


DISPATCH 


DISPATCHER 


ENTRY 


ALLOCS IR 


SIR ALLOCATION 


ENTRY 


DEALCSIR 


SIR DEALLOCATION 


ENTRY 


SELC800 


SELECT I/O EXPANSION ROM 


ENTRY 


NMIDSBL 


DISABLE NMI 


ENTRY 


NMIENBL 


ENABLE NMI 


ENTRY 


NMIDBUG 


NMI DEBUG ENTRY 


ENTRY 


NMICONT 


NMI DEBUG CONTINUATION 


ENTRY 


QUEEVENT 


QUEUE AN EVENT 



EXTERNAL SUBROUTINES & DATA 
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001167 




EXTRN 


SCMGR 


001168 




EXTRN 


CHKBUF 


001169 


* 






001170 


* SYSTEM DEATH 


ERRORS 




001171 








001172 




EXTRN 


SYSDEATH 


001173 




EXTRN 


BADBRK 


001174 




EXTRN 


BADINT1 


001175 




EXTRN 


BADINT2 


001176 




EXTRN 


NMIHANG 


001177 




EXTRN 


EVQOVFL 


001178 




EXTRN 


STKOVFL 


001179 








001180 


* LINKAGE DATA 


FOR INITIALIZATION R 


001181 








001182 




ENTRY 


EV . QUEUE 


001183 




ENTRY 


EVQ . CNT 


001184 




ENTRY 


EVQ.SIZ 


001185 




ENTRY 


EVQ . LEN 


001186 




ENTRY 


EVQ . FREE 


001187 




ENTRY 


EVQ. LINK 


001188 




ENTRY 


SIRTABLE 


001189 




ENTRY 


SIRTBLSIZ 


001190 




ENTRY 


ZPGSTACK 


001191 




ENTRY 


ZPGSTART 


001192 


* 






001193 


* SYSGLOB DATA 






001194 








001195 




EXTRN 


SERR 


001196 




EXTRN 


CEVPRI 


001197 




EXTRN 


SYSBANK 


001198 




EXTRN 


KYBDNMI 


001199 




EXTRN 


NMISPSV 


001200 




EXTRN 


NMIFLAG 


001201 




EXTRN 


SCRNMODE 


001202 




EXTRN 


SIRTEMP 


001203 




EXTRN 


SIRARGSIZ 


001204 




EXTRN 


IRQCNTR 


001205 




EXTRN 


NMICNTR 


001206 




EXTRN 


QEVTEMP 


001207 




EXTRN 


QEV.THIS 


001208 




EXTRN 


QEV. LAST 


001209 




EXTRN 


BACKMASK 


001210 








001211 


* CONSTANT DECLARATIONS 




001212 


* 






001213 


FALSE 


EQU 


$00 


001214 


BITON0 


EQU 


$01 


001215 


BITON1 


EQU 


$02 


001216 


BITON2 


EQU 


$04 



; CALLER'S EVENT PRIORITY 
; SYSTEM BANK 



;NMI PENDING FLAG 

; CURRENT SCREEN MODE 

;FOR ALLOCSIR & DEALCSIR 

; FLASE IRQ COUNTER 
;TWO BYTE COUNTER 
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001217 


BITON4 


EQU 


$10 


001218 


BITON5 


EQU 


$20 


001219 


BITON6 


EQU 


$40 


001220 


BITON7 


EQU 


$80 


001221 


BITOFF3 


EQU 


$F7 


001222 


BITOFF4 


EQU 


$EF 


001223 


B I TOFF 5 


EQU 


$DF 


001224 


BITOFF6 


EQU 


$BF 


001225 


B I TOFF 7 


EQU 


$7F 


001226 


BACKBIT 


EQU 


$20 


001227 










001228 




SYSTEM 


CONTROL REGISTERS 


001229 


★ 








001230 


B 


REG 


EQU 


$FFEF 


001231 


E 


REG 


EQU 


$FFDF 


001232 


Z 


REG 


EQU 


$FFD0 


001233 


★ 








001234 




6522 REGISTERS 




001235 


* 








001236 


D 


IFR 


EQU 


$FFDD 


001237 


D 


IER 


EQU 


$FFDE 


001238 


E 


IORB 


EQU 


$FFE0 


001239 


E 


IFR 


EQU 


$FFED 


001240 


E 


IER 


EQU 


$FFEE 


001241 


E 


IORA 


EQU 


$FFEF 


001242 






PAGE 




001243 


★ 








001244 


* 


REGISTER PRESERVATION 


EQUATES 


001245 




FOR USE 


DURING INTERRUPT PROCE 


001246 


★ 








001247 


A 


SAVE 


EQU 


$103 


001248 


S 


SAVE 


EQU 


$104 


001249 


SP . SAVE 


EQU 


$1FF 


001250 


E 


SAVE 


EQU 


$1FE 


001251 


Z 


SAVE 


EQU 


$1FD 


001252 


B 


SAVE 


EQU 


$1FC 


001253 


EXPNSLOT 


DFB 


$00 


001254 


* 








001255 




STATUS 


LOCATIONS FOR 


INTERRUPT 


001256 










001257 


ACIASTAT 


EQU 


$C0F1 


001258 


ANYSLOT 


DFB 


BITON1 


001259 


SLOT1 


EQU 


$C065 


001260 


SLOT2 


EQU 


$C064 


001261 


SLOT3 


DFB 


BITON5 


001262 


SLOT4 


DFB 


BITON4 


001263 


* 








001264 


* 


INTERRUPT ZERO PAGE STORAGE & 


001265 










001266 


SIRARGS 


EQU 


$F9 



; BACKUP BIT MASK 



; BANK REGISTER 
/ENVIRONMENT REGISTER 
;ZERO PAGE REGISTER 



; CURRENT I/O EXPANSION SLOT 



EQUATES 



; AND $FA 
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001267 


QEVARGS 


EQU 


$FB 




; AND $FC 


001268 


IRQADDR 


EQU 


$FD 




; AND $FE 


001269 


ZPGSP 


EQU 


$FF 






001270 


ZPGSTART 


EQU 


$F8 






001271 


ZPGSTOP 


EQU 


$28 






001272 


ZPGSPACE 


EQU 


$20 






001273 


ZPGSTACK 


DFB 


ZPGSTART 






001274 


* 










001275 


* SYSTEM INTERNAL RESOURCE 






001276 


* TABLE STORAGE AND EQUATES 






001277 












001278 


SIRTBLSIZ 


EQU 


$18 






001279 


SIRTABLE 


DS 


SIRTBLSIZ 






001280 


SIRADR.L 


DS 


SIRTBLSIZ 






001281 


NMIADR.L 


DS 


1 




;MUST PRECEED SIRADR.H 


001282 


SIRADR.H 


DS 


SIRTBLSIZ 






001283 


SIRADR.B 


DS 


SIRTBLSIZ 






001284 












001285 


* EVENT QUEUE 


STORAGE AND 


EQUATES 






001286 












001287 


EVQ.SIZ 


EQU 


6 




; ENTRY SIZE 


001288 


EVQ . CNT 


EQU 


$07 




; ENTRY COUNT 


001289 


EVQ . LEN 


EQU 


$2A 




; (EVQ.SIZ*EVQ.CNT) 


001290 


EV. QUEUE 


DS 


EVQ . LEN 






001291 


EVQ . FREE 


EQU 


EV . QUEUE+2 




; FIRST FREE ENTRY INDEX 


001292 


EVQ . LINK 


EQU 


EV.QUEUE+0 




; NEXT ACTIVE ENTRY INDEX 


001293 


EVQ . PRI 


EQU 


EV.QUEUE+1 




; EVENT PRIORITY 


001294 


EVQ. ID 


EQU 


EV . QUEUE+2 




; EVENT IDENTIFICATION 


001295 


EVQ.ADRL 


EQU 


EV.QUEUE+3 




; EVENT ADDRESS: LOW BYTE 


001296 


EVQ.ADRH 


EQU 


EV.QUEUE+4 




; EVENT ADDRESS: HIGH BYTE 


001297 


EVQ . BANK 


EQU 


EV.QUEUE+5 




; EVENT ADDRESS: BANK 


001298 




SBTL 


"GENERAL INTERRUPT RECEIVER" 


001299 




REP 


60 






001300 












001301 


* THIS IS THE 


GENERAL INTERRUPT RECEIVER. 


WHEN 


AN 


001302 


* INTERRUPT OCCURS, THE CPU PASSES CONTROL 


TO THE GIR 


001303 


* THROUGH THE 


IRQ VECTOR. 


THE GIR IS RESPONSIBLE FOR 


001304 


* SAVING THE 


CURRENT ENVIRONMENT, SETTING 


UP THE SOS 


001305 


* ENVIRONMENT 


, AND CALLING THE APPROPRIATE 


CODE 


MODULE . 


001306 


* IF THE INTERRUPT WAS CAUSED BY A BRK, THE GIR 


CALLS 


001307 


* THE SYSTEM 


CALL MANAGER 


OTHERWISE, THE 


GIR 


POLLS THE 


001308 


* I/O DEVICES 


AND CALLS THE APPROPRIATE MASTER 


INTERRUPT 


001309 


* HANDLER. WHEN THE SCM OR MIH RETURNS, THE GIR PASSES 


001310 


* CONTROL TO 


THE DISPATCHER. 






001311 












001312 




REP 


60 






001313 












001314 


IRQ.RCVR 


EQU 








001315 












001316 


* SAVE CPU REGISTERS A, X 


& Y ON CURRENT 


STACK 
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001317 






001318 




PHA 


001319 




TXA 


001320 




PHA 


001321 




TYA 


001322 




PHA 


001323 






001324 


* 


CHECK FOR STACK OVERFLOW AND 


001325 




SAVE INTERRUPTED STATUS IN Y REGISTER. 


001326 






001327 




TSX 


001328 




CPX #$FA 


001329 




BCC GIR005 


001330 




LDA #>STKOVFL 


001331 




JSR SYSDEATH 


001332 


GIR005 LDY S.SAVE,X 


001333 






001334 




SET UP INTERRUPT ENVIRONMENT: 


001335 


* 


BINARY ARITHMETIC, 2 MHZ, I/O ENABLED, 


001336 


★ 


RAM WRITE ENABLED, PRIMARY STACK, 


001337 




AND $F000 RAM SELECTED. PRESERVE 


001338 


* 


USER STATE OF SCREEN AND RESET LOCK. 


001339 


* 




001340 




CLD 


001341 




LDA E . REG 


001342 




TAX 


001343 




AND #BITON5+BITON4 


001344 




ORA #BITON6+BITON2 


001345 




STA E.REG 


001346 


* 




001347 




IF NOT ALREADY ON PRIMARY STACK, SAVE USER'S STACK 


001348 


* 


POINTER AND SET UP SOS STACK POINTER. 


001349 






001350 




TXA 


001351 




AND #BITON2 


001352 




BNE GIRO 10 


001353 




TXA 


001354 




TSX 


001355 




STX SP . SAVE 


001356 




LDX #>E . SAVE 


001357 




TXS 


001358 




TAX 


001359 






001360 




SAVE E, Z, B, & I/O EXPANSION SLOT ON SOS STACK 


001361 


* 


IF BRK THEN CALL SCMGR ELSE POLL I/O DEVICES 


001362 


* 




001363 


GIRO 10 TXA 


001364 




PHA 


001365 




LDA Z . REG 


001366 




PHA 
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001367 


LDA 


B.REG 


001368 


PHA 




001369 


LDA 


EXPNSLOT 


001370 


PHA 




001371 


BIT 


$CFFF 


001372 


BIT 


$C020 


001373 


LDA 


#$00 


001374 


STA 


EXPNSLOT 


001375 


TYA 




001376 


AND 


#BITON4 


001377 


BEQ 


POLL. IO 


001378 






001379 


* CALL SYSTEM CALL MANAGER; ON RETURN 


001380 


* USER'S A REGISTER AND SET RETURN ST, 


001381 


* 




001382 


TSX 




001383 


CPX 


#>B.SAVE-2 


001384 


BEQ 


GIR020 


001385 


LDA 


#>BADBRK 


001386 


JSR 


SYSDEATH 


001387 


GIR020 LDA 


E.REG 


001388 


AND 


#BITOFF6 


001389 


STA 


E.REG 


001390 


CLI 




001391 


JSR 


SCMGR 


001392 


LDA 


#BACKBIT 


001393 


STA 


BACKMASK 


001394 


JSR 


CHKBUF 


001395 


SEI 




001396 


LDX 


SP . SAVE 


001397 


LDA 


Z . SAVE 


001398 


EOR 


#BITON0 


001399 


STA 


Z.REG 


001400 


LDA 


SERR 


001401 


STA 


>A.SAVE,X 


001402 


PHP 




001403 


LDA 


>S.SAVE,X 


001404 


AND 


#$7D 


001405 


STA 


>S.SAVE,X 


001406 


PLA 




001407 


AND 


#$82 


001408 


OPA 


>S.SAVE,X 


001409 


STA 


>S.SAVE,X 


001410 


JMP 


DISPATCH 


001411 


PAGE 




001412 






001413 


* SET INTERRUPT ZERO PAGE 


AND SOS BAN 


001414 


* THEN POLL I/O DEVICES 




001415 






001416 


POLL. IO BIT 


E. IORA 



; RESET I/O SPACE 



ERROR CODE IN 
THEN DISPATCH. 



CHECK FOR 
REENTRANT 
SYSTEM CALL 



; SELECT $C000 RAM 



ENABLE INTERRUPTS 

CALL THE SYSTEM CALL MGR 

GET THE MASK 

SET IT IN SYSGLOB 



;SET ZERO PAGE TO 
; CALLER'S STACK 



; VERIFY THAT 'IRQ IS LOW 
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001417 




BPL 


PIO006 




001418 




INC 


IRQCNTR 


;BUMP FALSE IRQ COUNTER 


001419 




BNE 


PIO004 




001420 




INC 


IRQCNTR+1 




001421 


PIO004 


JMP 


DISPATCH 




001422 


PIO006 


LDA 


#0 


;SET INTERRUPT ZERO PAGE 


001423 




STA 


Z.REG 




001424 




LDA 


E.REG 




001425 




OPA 


#BITON7 


; FORCE 1 MHZ FOR 


001426 




STA 


E.REG 


; READING ACIA STATUS 


001427 




AND 


#BITOFF7 




001428 




LDX 


#$01 




001429 




LDY 


ACIASTAT 


; ANY INTERRUPT ON ACIA? 


001430 




STA 


E.REG 




001431 




BMI 


PIO070 




001432 




LDA 


E. IFR 


; ANY INTERRUPT ON E-6522? 


001433 




BPL 


PIO020 


; NO 


001434 




AND 


E. IER 




001435 




LDY 


#7 




001436 




LDX 


#$02 




001437 


PIO010 


LSR 


A 


; CHECK FLAG BITS 


001438 




BCS 


PIO070 




001439 




INX 






001440 




DEY 






001441 




BNE 


PIO010 




001442 




BEQ 


PIO035 




001443 


PIO020 


LDA 


D. IFR 


; ANY INTERRUPT ON D-6522? 


001444 




BPL 


PIO035 




001445 




AND 


D. IER 




001446 




BIT 


ANYSLOT 


; ANY SLOT INTERRUPT? 


001447 




BNE 


PIO040 


; YES 


001448 




LDY 


#7 




001449 




LDX 


#$09 




001450 


PIO030 


LSR 


A 


; CHECK FLAG BITS 


001451 




BCS 


PIO070 




001452 




INX 






001453 




DEY 






001454 




BNE 


PIO030 




001455 


PIO035 


LDX 


#$10 


; INTERRUPT NOT FOUND 


001456 




BNE 


PIO050 




001457 


PIO040 


LDX 


#$11 




001458 




BIT 


SLOT1 


;SLOT 1? 


001459 




BPL 


PIO070 




001460 




INX 






001461 




BIT 


SLOT2 


;SLOT 2? 


001462 




BPL 


PIO070 




001463 




LDA 


E. IORA 




001464 




INX 






001465 




BIT 


SLOT3 


;SLOT 3? 


001466 




BEQ 


PIO070 





Apple / // Sophisticated Operating System (SOS) 1.3 Source Code Listing » PTC 8/ 2001 » Page 35 of 391 



Apple/// Computer I nformation 



001467 
001468 
001469 
001470 
001471 
001472 
001473 
001474 
001475 
001476 
001477 
001478 
001479 
001480 
001481 
001482 
001483 
001484 
001485 
001486 
001487 
001488 
001489 
001490 
001491 
001492 
001493 
001494 
001495 
001496 
001497 
001498 
001499 
001500 
001501 
001502 
001503 
001504 
001505 
001506 
001507 
001508 
001509 
001510 
001511 
001512 
001513 
001514 
001515 
001516 



* BAD INTERRUPT 
PIO050 
PIO060 



INX 

BIT SLOT4 

BEQ PIO070 

LDX #$0A 

SYSTEM DEATH 

LDA #>BADINT1 

JSR SYSDEATH 

LDA #>BADINT2 

JSR SYSDEATH 



;SLOT 4? 



; INTERRUPT NOT FOUND 

; BAD ZERO PAGE ALLOCATION 



INTERRUPTING DEVICE FOUND 

ALLOCATE ZERO PAGE AND CALL MASTER INTERRUPT HANDLER 

NOTE: 

SINCE READING THE ACIA'S STATUS REGISTER RESETS THE 
DSR AND DCD BITS, THE STATUS READ BY THE POLLING 
ROUTINE MUST BE PASSED TO THE INTERRUPT HANDLER; 
THE Y REGISTER HAS BEEN SELECTED FOR THIS PURPOSE. 
THE CURRENT IMPLEMENTATION DOES NOT USE Y IN CALLING 
THE INTERRUPT HANDLER. IF SUBSEQUENT REVISIONS 
NEED TO USE Y, THE STATUS MUST BE PRESERVED AND 
RESTORED BEFORE CALLING THE INTERRUPT HANDLER. 



CALLMIH 



PIO070 



JMP 


( IRQADDR) 




LDA 


SIRTABLE, X 


; INTERRUPT ALLOCATED? 


BPL 


PIO050 


; NO 


LDA 


SIRADR.L,X 


; GET INTERRUPT ADDRESS 


STA 


IRQADDR 




ORA 


SIRADR.H,X 


; CHECK FOR ADDRESS = $00 


BEQ 


PIO050 


; BAD ADDRESS 


LDA 


SIRADR.H,X 




STA 


IRQADDR+1 




LDA 


SIRADR.B,X 




STA 


B.REG 




LDA 


ZPGSTACK 


; ALLOCATE MIH ZERO PAGE 


CMP 


#ZPGSTOP+ZPGSPACE 




BCC 


PIO060 


;TOO MANY NESTED INTERRUPTS 


SBC 


#ZPGSPACE 




STA 


ZPGSTACK 




STA 


ZPGSP 




TAX 






JSR 


CALLMIH 


; CALL INTERRUPT HANDLER 


SEI 






LDA 


#$00 




STA 


Z.REG 




CLC 






LDA 


ZPGSTACK 


; DEALLOCATE MIH ZERO PAGE 
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001517 




ADC 


#ZPGSPACE 


001518 




STA 


ZPGSTACK 


001519 




STA 


ZPGSP 


001520 




LDA 


#BITONl 


001521 




STA 


D . IFR ; CLEAR ANY SLOT 


001522 




JMP 


DISPATCH 


001523 




SBTL 


"NON-MASKABLE INTERRUPT RECEIVER" 


001524 




REP 


60 


001525 


* 






001526 




THIS IS THE NON-MASKABLE INTERRUPT RECEIVER. WHEN AN 


001527 




NMI OCCURS, THE CPU PASSES CONTROL TO THE NMI RECEIVER 


001528 




THROUGH THE NMI VECTOR. 


THE OPERATION OF THE NMI 


001529 


* 


RECEIVER IS ESSENTIALLY 


THE SAME AS THE GIR EXCEPT 


001530 




THAT IT IS NOT CONCERNED WITH BRK, AND THE ONLY VALID 


001531 




SOURCE OF AN NMI IS THE 


KEYBOARD OR THE I/O DEVICE THAT 


001532 




HAS ALLOCATED THE NMI RESOURCE. 


001533 








001534 




REP 


60 


001535 








001536 








001537 


NMI . RCVR EQU 




001538 


* 






001539 




SAVE CPU REGISTERS A, X, 


& Y ON CURRENT STACK 


001540 








001541 




PHA 




001542 




TXA 




001543 




PHA 




001544 




TYA 




001545 




PHA 




001546 


* 






001547 




CHECK FOR STACK OVERFLOW 


001548 


* 






001549 




TSX 




001550 




CPX 


#$FA 


001551 




BCC 


NMI005 


001552 




LDA 


#>STKOVFL 


001553 




JSR 


SYSDEATH 


001554 


* 






001555 




SET UP INTERRUPT ENVIRONMENT: 


001556 


* 


BINARY ARITHMETIC, 2 MHZ, I/O ENABLED, 


001557 


* 


RAM WRITE ENABLED, PRIMARY STACK, 


001558 




AND $F000 RAM SELECTED. PRESERVE 


001559 




USER STATE OF SCREEN AND RESET LOCK. 


001560 








001561 


NMI 005 CLD 




001562 




LDA 


E.REG 


001563 




TAX 




001564 




AND 


#BITON5+BITON4 


001565 




ORA 


#BITON6+BITON2 


001566 




STA 


E.REG 
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001567 
001568 
001569 
001570 
001571 
001572 
001573 
001574 
001575 
001576 
001577 
001578 
001579 
001580 
001581 
001582 
001583 
001584 
001585 
001586 
001587 
001588 
001589 
001590 
001591 
001592 
001593 
001594 
001595 
001596 
001597 
001598 
001599 
001600 
001601 
001602 
001603 
001604 
001605 
001606 
001607 
001608 
001609 
001610 
001611 
001612 
001613 
001614 
001615 
001616 



IF NOT ALREADY ON PRIMARY STACK, SAVE USER'S 
STACK POINTER AND SET UP SOS STACK POINTER. 



TXA 
AND 
BNE 
TXA 
TSX 
STX 
LDX 
TXS 
TAX 



#BITON2 
NMI010 



SP . SAVE 
#>E . SAVE 



* SAVE SYSTEM CONTROL REGISTERS E, Z, & B ON SOS STACK 



NMI010 



TXA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
BIT 
BIT 
LDA 
STA 

SET INTERRUPT ZERO PAGE 



Z.REG 

B.REG 

EXPNSLOT 

$CFFF 
$C020 
#$00 

EXPNSLOT 



; RESET I/O SPACE 



LDA 
STA 



#0 

Z.REG 



* SEE IF NMI IS FROM KEYBOARD OR I/O DEVICE 



LDA 
BMI 

NMI IS FROM I/O DEVICE 



E.IORB 
NMI030 



CALLNMI 



LDA 


SIRTABLE 


BPL 


NMI020 


JSR 


CALLNMI 


SEI 




JMP 


DISPATCH 


LDA 


SIRADR.L 


STA 


NMIADR.L 


LDA 


SIRADR.B 


STA 


B.REG 



;NMI ALLOCATED? 
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001617 
001618 
001619 
001620 
001621 
001622 
001623 
001624 
001625 
001626 
001627 
001628 
001629 
001630 
001631 
001632 
001633 
001634 
001635 
001636 
001637 
001638 
001639 
001640 
001641 
001642 
001643 
001644 
001645 
001646 
001647 
001648 
001649 
001650 
001651 
001652 
001653 
001654 
001655 
001656 
001657 
001658 
001659 
001660 
001661 
001662 
001663 
001664 
001665 
001666 



JMP (NMIADR.L) 
BAD INTERRUPT — SYSTEM DEATH 



NMI020 



LDA 
JSR 



#>BADINT1 
SYSDEATH 



;NMI NOT ALLOCATED 



NMI IS FROM THE KEYBOARD 



NMI030 



LDA 

STA 

JSR 

SEI 

JMP 

SBTL 

REP 



SYSBANK 

B.REG 

KYBDNMI 

DISPATCH 
"DISPATCHER" 

60 



THIS IS THE DISPATCHER. UPON COMPLETION, ALL SOS CALLS 
AND INTERRUPT HANDLERS RETURN CONTROL TO THE DISPATCHER. 
ITS PURPOSE IS TO SET UP THE APPROPRIATE ENVIRONMENT AND 
PASS CONTROL TO WHATEVER CODE SHOULD RUN NEXT. 

WHEN SOS IS INTERRUPTED, CONTROL ALWAYS RETURNS TO THE 
INTERRUPTED CODE. HOWEVER, WHEN THE USER IS INTERRUPTED, 
BY EITHER A SOS CALL OR AN INTERRUPT, THE DISPATCHER 
MUST CHECK THE EVENT QUEUE. IF THERE IS AN ACTIVE EVENT 
WITH A PRIORITY HIGHER THAN THE CURRENT EVENT FENCE, 
CONTROL IS PASSED TO THE EVENT CODE. OTHERWISE, CONTROL 
RETURNS TO THE INTERRUPTED CODE. 



DISPATCH 



REP 



EQU 



60 



DISABLE INTERRUPTS AND RESTORE 
SYSTEM CONTROL REGISTERS B & Z 



SEI 
LDA 
ORA 
STA 
PLA 
JSR 
PLA 
STA 
PLA 
STA 



E.REG 

#BITON6 

E.REG 

SELC800 

B.REG 

Z.REG 



; ENABLE I/O 



; RESTORE I/O SPACE 



CHECK SAVED ENVIRONMENT REGISTER 
IF RETURNING TO PRIMARY STACK 
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001667 


* THEN RESTORE E 


REG 


AND RELAUNCH SOS 


001668 


* ELSE RESET STACK POINTER & RESTORE 


001669 


* 








001670 


PLA 








001671 


ORA 






#BITON5 


001672 


BIT 






SCRNMODE 


001673 


BMI 






DSP005 


001674 


AND 






#BITOFF5 


001675 


DSP005 TAY 








001676 


AND 






#BITON2 


001677 


BEQ 






DSP010 


001678 


STY 






E.REG 


001679 


BNE 






DSP030 


001680 


DSP010 PLA 








001681 


TAX 








001682 


TXS 








001683 


STY 






E.REG 


001684 


* 








001685 


* CHECK FOR ACTIVE 


EVENT 


WITH PRIORITY 


001686 










001687 


DSP020 LDA 






CEVPRI 


001688 


LDX 






EVQ . LINK 


001689 


CMP 






EVQ . PRI , X 


001690 


BCS 






DSP030 


001691 


* 








001692 


* PROCESS ACTIVE EVENT 


TRAP 


001693 


* SAVE E, Z, B, & CALLER 


S PRIORITY ON 


001694 


* EVENT. UPON RETURN, 


RESTORE PRIORITY 


001695 


* CHECK FOR MORE EVENTS. 




001696 










001697 


LDA 






E.REG 


001698 


PHA 








001699 


LDA 






Z.REG 


001700 


PHA 








001701 


LDA 






B.REG 


001702 


PHA 








001703 


LDA 






CEVPRI 


001704 


PHA 








001705 


JSR 






DO. EVENT 


001706 


SEI 








001707 


PLA 








001708 


STA 






CEVPRI 


001709 


PLA 








001710 


STA 






B.REG 


001711 


PLA 








001712 


STA 






Z.REG 


001713 


PLA 








001714 


ORA 






#BITON5 


001715 


BIT 






SCRNMODE 


001716 


BMI 






DSP025 



E REG 



;SET SCREEN STATE TO 
; CURRENT SCREEN MODE 



> FENCE 



STACK THEN CALL 
, B, Z, & E THEN 



;SET SCREEN STATE TO 
; CURRENT SCREEN MODE 
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001717 




AND #BITOFF5 


001718 


DSP025 STA E.REG 


001719 




JMP DSP020 


001720 


* 




001721 




RESTORE CPU REGISTERS Y, X, & A AND LAUNCH 


001722 


* 




001723 


DSP030 PLA 


001724 




TAY 


001725 




PLA 


001726 




TAX 


001727 




PLA 


001728 




RTI 


001729 




PAGE 


001730 




REP 60 


001731 






001732 




THIS SUBROUTINE CALLS THE HIGHEST PRIORITY ACTIVE EVENT. 


001733 




FIRST, IT DELINKS THE FIRST ENTRY ON THE ACTIVE LIST AND 


001734 




LINKS IT TO THE FREE LIST. THEN, IT SETS UP THE BANK, 


001735 




ADDRESS, ID, & STATUS AND CALLS THE EVENT VIA AN RTI. 


001736 


* 




001737 




REP 60 


001738 


* 




001739 


DO 


EVENT EQU * 


001740 






001741 




WRITE ENABLE RAM 


001742 


* 




001743 




LDY E . REG 


001744 




TYA 


001745 




AND #BITOFF3 


001746 




STA E.REG 


001747 






001748 


* 


DELINK ENTRY FROM ACTIVE LIST AND RELINK IT TO FREE LIST 


001749 






001750 




LDX EVQ . LINK 


001751 




LDA EVQ. LINK, X 


001752 




STA EVQ. LINK 


001753 




LDA EVQ . FREE 


001754 




STA EVQ. LINK, X 


001755 




STX EVQ. FREE 


001756 


* 




001757 




SET FENCE TO EVENT PRIORITY THEN RESTORE E REG 


001758 


* 




001759 




LDA EVQ . PRI , X 


001760 




STA CEVPRI 


001761 




STY E.REG 


001762 






001763 


* 


SET UP B, Z, E, ADDRESS, ID, & STATUS 


001764 






001765 




LDA EVQ. BANK, X 


001766 




STA B.REG 
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001767 LDA EVQ . ADRH , X 

001768 PHA 

001769 LDA EVQ . ADRL , X 

001770 PHA 

001771 LDY EVQ. ID, X 

001772 PHP 

001773 PLA 

001774 AND #$82 

001775 PHA 

001776 TYA 

001777 RTI 
001778 

001779 CHN IPL.SRC2 
001780 

001781 ************************************************************************* 

001782 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: IPL.SRC1 

001783 ************************************************************************* 
001784 

001785 
001786 
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001787 








001788 


DOCUMENT : S0S1 . 3 . lof 5 . ONE : SOS . IPL . SRC2 . TEXT 










001789 








001790 








001791 




001792 




APPLE 


/// SOS 1.3 SOURCE CODE FILE: IPL.SRC2 


001793 




001794 


* 


ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 


001795 








001796 






SBTL "SYSTEM INTERNAL RESOURCES" 


001797 






REP 60 


001798 








001799 


* 


SYSTEM INTERNAL RESOURCE NUMBERS 


001800 








001801 


* 






001802 

\J \J -L C V ^- 


* 


SIR 


RESOURCE 


001803 

\J \J -L C V ~J 


* 






001804 







SOUND PORT /I/O NMI 


001805 


★ 


1 


AC I A 


001806 


* 


2 


E.CA2 — KEYBOARD 


001807 


* 


3 


E.CA1 — CLOCK 


001808 


* 


4 


E.SR 


001809 


* 


5 


E.CB2 — VBL + 


001810 




6 


E.CB1 — VBL - 


001811 




7 


E.T2 


001812 


* 


8 


E.T1 


001813 




9 


D.CA2 — CSP INPUT FLAG / INPUT SWITCH 1 


001814 


* 


A 


D.CA1 — ANY SLOT (RESERVED FOR SOS) 


001815 

\J \J -L C -L *-J 


* 


B 


D.SR — CSP DATA REGISTER 


001816 




C 


D.CB2 — CSP DATA I/O / ENSIO 


001817 


* 


D 


D.CB1 — CSP CLOCK / ENSEL / A/D SELECT / INPUT SW3 


001818 




E 


D.T2 


001819 


* 


F 


D.T1 


001820 




10 


DISK STEPPER / GRAPHICS SCROLL / CHARACTER DOWNLOAD 


001821 




11 


SLOT 1 


001822 




12 


SLOT 2 


001823 


* 


13 


SLOT 3 


001824 


★ 


14 


SLOT 4 


001825 


* 


15 


(UNASSIGNED) 


001 826 


* 


16 


(UNAS SIGNED) 


001827 


* 


17 


(UNASSIGNED) 


001828 








001829 






REP 60 


001830 






SBTL "RESOURCE ALLOCATION & DEALLOCATION" 


001831 






REP 60 


001832 


* 






001833 




RESOURCE ALLOCATION AND DEALLOCATION 


001834 


★ 






001835 


* 


SIRS 


ARE ALLOCATED AND DEALLOCATED BY THE SUBROUTINES 
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001836 


* 


001837 




001838 


* 


001839 


* 


001840 


* 


001841 




001842 




001843 




001844 


* 


001845 




001846 




001847 


* 


001848 


* 


001849 




001850 


* 


001851 


* 


001852 


* 


001853 


* 


001854 


* 


001855 


* 


001856 


* 


001857 


* 


001858 




001859 




001860 


* 


001861 




001862 


* 


001863 




001864 




001865 




001866 




001867 




001868 


* 


001869 




001870 




001871 




001872 


* 


001873 


* 


001874 


* 


001875 




001876 


* 


001877 


* 


001878 


* 


001879 




001880 




001881 


* 


001882 


* 


001883 




001884 




001885 


* 



'ALLOCSIR' AND ' DEALCSIR' . THE RESOURCE PARAMETERS ARE 
PASSED IN A TABLE THAT CONTAINS ONE FIVE-BYTE ENTRY FOR 
EACH SIR THAT IS TO BE ALLOCATED OR DEALLOCATED. THE 
TABLE ENTRY FORMAT IS SHOWN BELOW: 





+ +- 

SIR # 



ID 



2 

I ADR.L 



ADR.H 



ADR. I 



SIR # — SYSTEM INTERNAL RESOURCE NUMBER 
ID — IDENTIFICATION BYTE 

SUPPLIED BY ALLOCSIR, CHECKED BY DEALCSIR 
ADR — INTERRUPT ADDRESS (LOW, HIGH, BANK) 

ZERO IF NO INTERRUPT HANDLER 



ALLOCSIR 



ALLOCATE SYSTEM INTERNAL RESOURCES 



PARAMETERS : 

A: NUMBER OF BYTES IN TABLE 
X: TABLE ADDRESS (LOW BYTE) 
Y: TABLE ADDRESS (HIGH BYTE) 

NORMAL EXIT — SIRS ALLOCATED 
CARRY : CLEAR 
A, X, Y: UNDEFINED 

ERROR EXIT — SIRS NOT ALLOCATED 
CARRY : SET 
X: SIR NUMBER 
A, Y: UNDEFINED 



DEALCSIR — DEALLOCATE SYSTEM INTERNAL RESOURCES 

PARAMETERS : 

A: NUMBER OF BYTES IN TABLE 
X: TABLE ADDRESS (LOW BYTE) 
Y: TABLE ADDRESS (HIGH BYTE) 

NORMAL EXIT — SIRS DEALLOCATED 
CARRY : CLEAR 
A, X, Y: UNDEFINED 

ERROR EXIT — SIRS NOT DEALLOCATED 
CARRY : SET 
X: SIR NUMBER 
A, Y: UNDEFINED 
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001886 
001887 
001888 
001889 
001890 
001891 
001892 
001893 
001894 
001895 
001896 
001897 
001898 
001899 
001900 
001901 
001902 
001903 
001904 
001905 
001906 
001907 
001908 
001909 
001910 
001911 
001912 
001913 
001914 
001915 
001916 
001917 
001918 
001919 
001920 
001921 
001922 
001923 
001924 
001925 
001926 
001927 
001928 
001929 
001930 
001931 
001932 
001933 
001934 
001935 



IDBYTE 



ALLOCS IR 



ASIR010 



REP 
PAGE 

DFB 

EQU 
CLC 
PHP 
SEI 
STA 
LDA 
STA 
ORA 
AND 
STA 
LDA 
PHA 
LDA 
PHA 
LDA 
STA 
STX 
STY 

LDY 
LDA 
CMP 
TAX 
BCS 
LDA 
BMI 
LDA 
STA 
INY 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 
CPY 
BCC 

CLC 
INC 



60 



$81 



SIRARGSIZ 

E.REG 

SIRTEMP 

#BITON2 

#BITOFF3 

E.REG 

SIRTEMP 

Z.REG 

#$00 
Z.REG 
SIRARGS 
SIRARGS+1 

#$00 

(SIRARGS) , Y 
#SIRTBLSIZ 

ASIR020 
SIRTABLE, X 
ASIR020 
IDBYTE 
SIRTABLE, X 

(SIRARGS) , Y 

(SIRARGS) , Y 
SIRADR.L,X 

(SIRARGS) , Y 
SIRADR.H,X 

(SIRARGS) , Y 
SIRADR.B,X 

SIRARGSIZ 
ASIR010 



IDBYTE 



;SAVE TABLE SIZE 



; FORCE PRIMARY STACK 
; AND WRITE ENABLE 



;SET ZERO PAGE := $00 
;SET POINTER TO TABLE 

; GET SIR NUMBER 

; CHECK ALLOCATION 

; ALLOCATE SIR 
; RETURN ID BYTE 

;SAVE INTERRUPT ADDRESS 



;BUMP ID BYTE 
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001936 




BMI 


SIREXIT 


001937 




LDA 


#$81 


001938 




STA 


IDBYTE 


001939 




BMI 


SIREXIT 


001940 


* 






001941 


ASIR020 


STX 


SIRTEMP 


001942 


ASIR030 


SEC 




001943 




TYA 




001944 




SBC 


#5 


001945 




TAY 




001946 




BCC 


ASIR040 


001947 




LDA 


(SIRARGS) 


001948 




TAX 




001949 




LDA 


#FALSE 


001950 




STA 


SIRTABLE, 


001951 




BEQ 


ASIR030 


001952 


* 






001953 


ASIR040 


LDX 


SIRTEMP 


001954 




SEC 




001955 








001956 


* 






001957 








001958 


SIREXIT 


PLA 




001959 




STA 


Z.REG 


001960 




PLA 




001961 




STA 


E.REG 


001962 




BCC 


SIREXIT1 


001963 




PLA 




001964 




ORA 


#BITON0 


001965 




PHA 




001966 


SIREXIT1 


PLP 




001967 




RTS 




001968 








001969 


* 






001970 








001971 


DEALCSIR 


EQU 


* 


001972 




CLC 




001973 




PHP 




001974 




SEI 




001975 




STA 


SIRARGS I Z 


001976 




LDA 


E.REG 


001977 




STA 


SIRTEMP 


001978 




ORA 


#BITON2 


001979 




AND 


#BITOFF3 


001980 




STA 


E.REG 


001981 




LDA 


SIRTEMP 


001982 




PHA 




001983 




LDA 


Z.REG 


001984 




PHA 




001985 




LDA 


#$00 



;SAVE BAD SIR NUMBER 



; GET SIR NUMBER 



/RELEASE ALLOCATED SIRS 



; RETURN BAD SIR 



; RESTORE Z REGISTER 
; RESTORE E REGISTER 



;SAVE TABLE SIZE 



; FORCE PRIMARY STACK 
; AND WRITE ENABLE 
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001986 








STA 


Z.REG 


;SET ZERO PAGE := $00 


001987 








STX 


SIRARGS 




001988 








STY 


SIRARGS+1 


;SET POINTER TO TABLE 


001989 


★ 












001990 








LDY 


#$00 




001991 


DSIR010 






LDA 


(SIRARGS) , Y 


; GET SIR NUMBER 


001992 








TAX 






001993 








CPX 


#SIRTBLSIZ 




001994 








BCS 


DSIR030 




001995 








INY 






001996 








LDA 


SIRTABLE, X 




001997 








BPL 


DSIR030 


; VERIFY ALLOCATION 


001998 








CMP 


(SIRARGS) , Y 




001999 








BNE 


DSIR030 




002000 








INY 






002001 








INY 






002002 








INY 






002003 








INY 






002004 








CPY 


SIRARGS I Z 




002005 








BCC 


DSIR010 




002006 


★ 












002007 








LDY 


SIRARGS I Z 




002008 


DSIR020 






SEC 






002009 








TYA 






002010 








SBC 


#5 




002011 








TAY 






002012 








BCC 


SIREXIT 




002013 








LDA 


(SIRARGS) , Y 


; GET SIR NUMBER 


002014 








TAX 






002015 








LDA 


#FALSE 




002016 








STA 


SIRTABLE, X 




002017 








BEQ 


DSIR020 




002018 














002019 


DSIR030 






SEC 






002020 








BCS 


SIREXIT 




002021 








SBTL 


"SELECT I/O EXPANSION ROM" 


002022 








REP 


60 




002023 


* 












002024 


* SUBROUTINE ' 


SELC800 


' IS CALLED TO SELECT THE 


C800 I/O EX- 


002025 


* PANS ION 


ADDRESS SPACE FOR A PERIPHERAL SLOT. 


ON ENTRY, 


002026 


* THE SLOT NUMBER IS 


PASSED IN THE ACCUMULATOR. 


IF NO 


002027 


* ERROR 


OCCURS 


, CARRY 


IS CLEARED; OTHERWISE, CARRY IS SET 


002028 


* AND THE 


PREVIOUS SLOT REMAINS SELECTED. 




002029 














002030 


* PARAMETERS : 








002031 


* A: 


SLOT NUMBER 






002032 














002033 


* NORMAL EXIT 


— NEW 


SLOT SELECTED 




002034 


* CARRY 


CLEAR 






002035 


* A: 


UNDEFINED 
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002036 


* X, Y: UNCHANGED 










002037 












002038 


* ERROR EXIT — SLOT 


NOT 


CHANGED 






002039 


* CARRY : SET 










002040 


* A, X, Y: UNCHANGED 








002041 












002042 


* WARNING ! ! ! 










002043 


* ' SELC800 ' USES SELF- 


MODIFYING CODE! 






002044 












002045 


REP 




60 






002046 












002047 


SELC800 EQU 










002048 


CMP 




#$05 




; CHECK SLOT NUMBER 


002049 


BCS 




SC8EXIT 




INVALID 


002050 


PHP 










002051 


SEI 










002052 


STA 




EXPNSLOT 






002053 


ORA 




#$C0 




; MAKE SLOT INTO $CN00 


002054 


STA 




CNADDR+2 




; AND MODIFY BIT ADDRESS 


002055 


BIT 




$C020 






002056 


BIT 




$CFFF 




; DESELECT PREVIOUS SLOT 


002057 


CNADDR BIT 




$C0FF 




; AND SELECT CURRENT SLOT 


002058 


PLP 










002059 


SC8EXIT RTS 










002060 


SBTL 




"NMI DISABLE / 


ENABLE " 


002061 


REP 




60 






002062 












002063 


* THE SUBROUTINES NMIDSBL AND NMIENBL ARE 


CALLED TO 


002064 


* DISABLE AND ENABLE 


NMI 


, RESPECTIVELY. 


THERE ARE NO 


002065 


* INPUT PARAMETERS. 


ON 


EXIT, THE REGISTERS ARE UN- 


002066 


* DEFINED. NMIDSBL CLEARS THE CARRY FLAG 


IF 


NMI WAS 


002067 


* SUCCESSFULLY DISABLED; 


OTHERWISE, CARRY 


IS 


SET. 


002068 












002069 


REP 




60 






002070 












002071 


NMIDSBL EQU 










002072 


LDX 




E.REG 






002073 


BIT 




NMIFLAG 






002074 


BPL 




NDS020 






002075 


TXA 










002076 


ORA 




#BITON7 






002077 


STA 




E.REG 




;SET 1MHZ 


002078 


LDA 




#$00 






002079 


STA 




NMICNTR 






002080 


STA 




NMICNTR+1 






002081 


NDS010 BIT 




NMIFLAG 




;NMI PENDING? 


002082 


BPL 




NDS020 




; NO 


002083 


INC 




NMICNTR 




;BUMP NMI COUNTER 


002084 


BNE 




NDS010 




; AND RECHECK NMI FLAG 


002085 


INC 




NMICNTR+1 
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002086 


BNE 




NDS010 








002087 


LDA 




#>NMIHANG 






; CAN'T LOCK NMI 


002088 


JSR 




SYSDEATH 








002089 


NDS020 TXA 










; GET E.REG 


002090 


AND 




#BITOFF4 






; DISABLE NMI 


002091 


STA 




E.REG 








002092 


RTS 












002093 














002094 


* 












002095 














002096 


NMIENBL EQU 












002097 


LDA 




E.REG 








002098 


ORA 




#BITON4 






; ENABLE NMI 


002099 


STA 




E.REG 








002100 


RTS 












002101 


SBTL 




"KEYBOARD 


NMI HANDLER" 


002102 


REP 




60 








002103 














002104 


* BY DEFAULT, KEYBOARD NMI IS IGNORED. 


THE USER MAY 


002105 


* PROCESS NMI BY CHANGING 


THE ADDRESS 


IN SYSTEM GLOBAL. 


002106 














002107 


REP 




60 








002108 














002109 


NMIDBUG EQU 












002110 


TSX 










;SAVE THE STACK POINTER 


002111 


STX 




NMISPSV 








002112 


LDA 




#$03 






; SELECT MONITOR'S ZERO PAGE 


002113 


STA 




Z.REG 








002114 


LDA 




E.REG 








002115 


ORA 




#$03 






; SELECT MONITOR ROM 


002116 


STA 




E.REG 








002117 


JSR 




$F901 






; CALL THE MONITOR 


002118 


* 












002119 


NMICONT EQU 




* 








002120 


LDA 




E.REG 








002121 


ORA 




#BITON2 






; FORCE PRIMARY STACK 


002122 


STA 




E.REG 








002123 


LDX 




NMISPSV 








002124 


TXS 










; RESTORE STACK POINTER 


002125 


RTS 












002126 


SBTL 




"EVENT QUEUE 


MANAGER" 


002127 


REP 




60 








002128 














002129 


* THE EVENT QUEUE IS 


USED 


TO HOLD THE 


PARAMETERS OF EVENTS 


002130 


* THAT HAVE BEEN DETECTED 


BUT NOT YET RECOGNIZED. EVENT 


002131 


* QUEUE ENTRIES ARE 


ORGANIZED INTO 


TWO 


LINKED 


LISTS; A FREE 


002132 


* LIST AND AN ACTIVE 


LIST 


EACH ENTRY 


IS SIX 


BYTES LONG, 


002133 


* WITH THE FIRST BYTE (BYTE 0) USED 


AS 


A LINK 


THE LINK 


002134 


* BYTE CONTAINS THE 


TABLE 


INDEX OF 


THE 


NEXT ENTRY IN THE 


002135 


* LIST. BECAUSE OF 


THE INDEXING METHOD, THE EVENT QUEUE 
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002136 
002137 
002138 
002139 
002140 
002141 
002142 
002143 
002144 
002145 
002146 
002147 
002148 
002149 
002150 
002151 
002152 
002153 
002154 
002155 
002156 
002157 
002158 
002159 
002160 
002161 
002162 
002163 
002164 
002165 
002166 
002167 
002168 
002169 
002170 
002171 
002172 
002173 
002174 
002175 
002176 
002177 
002178 
002179 
002180 
002181 
002182 
002183 
002184 
002185 



* MUST NOT EXCEED 256 BYTES. 

* ENTRY ZERO IS A SPECIAL ENTRY. BYTE IS THE INDEX OF 

* THE FIRST ACTIVE ENTRY; BYTE 1 CONTAINS A ZERO, ALLOWING 

* ENTRY TO BE USED AS THE ACTIVE EVENT LIST TERMINATER; 

* BYTE 2 CONTAINS THE INDEX OF THE FIRST FREE ENTRY; AND 

* BYTES 4 THROUGH 6 ARE UNUSED. 

* THE FREE LIST IS LINKED LIFO. THE ONLY VALID BYTE IN A 

* FREE ENTRY IS THE LINK BYTE; THE REMAINING BYTES ARE 

* UNDEFINED. THE FREE LIST IS TERMINATED BY A LINK BYTE 

* CONTAINING A ZERO. 
* 

* THE ACTIVE LIST IS LINKED IN DECREASING PRIORITY ORDER 

* WITH ENTRIES OF EQUAL PRIORITY LINKED FIFO. BYTES 1 

* THROUGH 5 CONTAIN THE EVENT PRIORITY, EVENT ID, LOW BYTE 

* OF THE EVENT ADDRESS, HIGH BYTE OF THE EVENT ADDRESS, AND 

* THE ADDRESS BANK. THE ACTIVE LIST IS TERMINATED BY AN 

* ENTRY WITH AN EVENT PRIORITY OF ZERO. 



REP 

PAGE 

REP 



60 



60 



SUBROUTINE ' QUEEVENT ' IS USED TO ENTER AN EVENT INTO THE 
EVENT QUEUE. ACTIVE EVENTS ARE LINKED IN DECREASING 
PRIORITY ORDER WITH EVENTS OF EQUAL PRIORITY LINKED FIFO. 
EVENTS ARE REMOVED FROM THE QUEUE AS THEY ARE RECOGNIZED 
BY THE DISPATCHER. 

PARAMETERS : 

X: EVENT PARAMETER ADDRESS (LOW BYTE) 
Y: EVENT PARAMETER ADDRESS (HIGH BYTE) 



EVENT 
PARMS: 







+ 

+ — 

PRI : 

ID: 

ADR: 



PRI 



ID 



2 3 4 

ADR.L | ADR. H | ADR. B | 



EVENT PRIORITY 
EVENT ID BYTE 

EVENT ADDRESS (LOW, HIGH, BANK) 



EXIT CONDITIONS: 
CARRY : CLEAR 
A, X, Y: UNDEFINED 



QUEEVENT 



REP 

EQU 
CLC 



60 
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002186 




PHP 






002187 




SEI 






002188 




LDA 


E.REG 




002189 




STA 


QEVTEMP 




002190 




ORA 


#BITON2 


; FORCE PRIMARY STACK 


002191 




AND 


#BITOFF3 


; AND WRITE ENABLE 


002192 




STA 


E.REG 




002193 




LDA 


QEVTEMP 




002194 




PHA 






002195 




LDA 


Z.REG 




002196 




PHA 






002197 




LDA 


#0 




002198 




STA 


Z.REG 


;SET ZERO PAGE := 


002199 


* 








002200 




STX 


QEVARGS 




002201 




STY 


QEVARGS+1 


;SET ARGUMENT POINTER 


002202 




LDY 


#0 




002203 




LDA 


(QEVARGS) , Y 


; GET PRIORITY 


002204 




BEQ 


Q.EXIT 


IGNORE IF ZERO 


002205 


* 








002206 




LDX 


EVQ . FREE 




002207 




BEQ 


Q . FULL 




002208 




STX 


QEV.THIS 


; GET FIRST FREE ENTRY 


002209 




LDA 


EVQ. LINK, X 


; AND DELINK IT 


002210 




STA 


EVQ . FREE 




002211 










002212 




LDY 


#EVQ.SIZ-2 




002213 


QEV010 


LDA 


(QEVARGS) , Y 


;COPY ARGUMENTS 


002214 




STA 


EVQ. BANK, X 


INTO NEW ENTRY 


002215 




DEX 






002216 




DEY 






002217 




BPL 


QEV010 




002218 


* 








002219 




LDX 


QEV.THIS 




002220 




LDY 


#0 




002221 


QEV020 


STY 


QEV. LAST 




002222 




LDA 


EVQ. LINK, Y 




002223 




TAY 






002224 




LDA 


EVQ.PRI, Y 


;SCAN EVENT QUEUE 


002225 




CMP 


EVQ . PRI , X 


; FOR PROPER POSITION 


002226 




BCS 


QEV020 




002227 


* 








002228 




TYA 






002229 




STA 


EVQ. LINK, X 


; RELINK EVENT INTO QUEUE 


002230 




TXA 






002231 




LDY 


QEV. LAST 




002232 




STA 


EVQ. LINK, Y 




002233 










002234 


Q.EXIT 


PLA 






002235 




STA 


Z.REG 


; RESTORE Z REGISTER 
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002236 
002237 
002238 
002239 
002240 
002241 
002242 
002243 
002244 
002245 
002246 
002247 
002248 
002249 
002250 
002251 
002252 
002253 
002254 
002255 
002256 



Q . FULL 



ZZEND 
ZZLEN 



PLA 
STA 
PLP 
RTS 

LDA 
JSR 
LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



E.REG 



#>EVQOVFL 

SYSDEATH 

ON 



ZZEND-ZZORG 
ZZLEN-LENIPL 
2, "SOSORG 



; RESTORE E REGISTER 



; EVENT QUEUE OVERFLOW 



FILE IS INCORRECT FOR IPL" 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: IPL.SRC2 

************************************************************************* 
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002257 
002258 
002259 
002260 
002261 
002262 
002263 
002264 
002265 
002266 
002267 
002268 
002269 
002270 
002271 
002272 
002273 
002274 
002275 
002276 
002277 
002278 
002279 
002280 
002281 
002282 
002283 
002284 
002285 
002286 
002287 
002288 
002289 
002290 
002291 
002292 
002293 
002294 
002295 
002296 
002297 
002298 
002299 
002300 
002301 
002302 
002303 
002304 
002305 



DOCUMENT : SOS1 . 3 . lof 5 . ONE : SOS . OPRMSG . SRC . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: OPRMSG. SRC 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



ZZORG 



SBTL 
REL 

INCLUDE 

ORG 

EQU 

MSB 

REP 



"SOS 1.1 OPERATOR MESSAGE/REPLY" 

SOSORG, 6, 1, 254 
ORGOMSG 

OFF 

60 



COPYRIGHT (C) APPLE COMPUTER INC. 1981 
ALL RIGHTS RESERVED 



REP 



60 



THIS MODULE CONTAINS THE BLOCK FILE MANAGERS ' S OPERATOR 
INTERFACE. IT DISPLAYS A MESSAGE IN A FOUR LINE BY 
FOURTY COLUMN WINDOW, THEN WAITS FOR THE USER TO TOGGLE 
THE ALPHA-LOCK KEY BEFORE RETURNING. 

THE VERTICAL BLANKING FLAGS AND COMPOSITE BLANKING 
TIMER ARE USED TO MAINTAIN THE DISPLAY. MEMORY PAGE 
$02 IS USED FOR TEMPORARY STORAGE. ON EXIT, ALL 
RESOURCES ARE RESTORED TO THEIR PREVIOUS STATES. 



ENTRY POINT: 



PARAMETERS : 



OPMSGRPLY 



X — MESSAGE ADDRESS (LOW BYTE) 
Y — MESSAGE ADDRESS (HIGH BYTE) 
(THE MESSAGE MUST RESIDE IN THE CURRENT BANK) 



RESULT: 



A ■ 
X, 



- RESPONSE KEYSTROKE 
Y — UNDEFINED 



REP 



ENTRY 



EXTRN 
PAGE 



60 

OPMSGRPLY 
SCRNMODE 
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002306 


* HARDWARE EQUATES 






002307 










002308 


Z.REG 


EQU 




$FFD0 


002309 


E.REG 


EQU 




$FFDF 


002310 










002311 


KBPORT 


EQU 




$C008 


002312 










002313 


BELL 


EQU 




$C040 


002314 










002315 


VMO 


EQU 




$C050 


002316 


VM1 


EQU 




$C052 


002317 


VM2 


EQU 




$C054 


002318 


VM3 


EQU 




$C056 


002319 










002320 


E.T2 


EQU 




$FFE8 


002321 


E.ACR 


EQU 




$FFEB 


002322 


E.PCR 


EQU 




$FFEC 


002323 


E.IFR 


EQU 




$FFED 


002324 


E.IER 


EQU 




$FFEE 


002325 










002326 


* ZERO PAGE DECLARATIONS 




002327 










002328 




DSECT 






002329 


ZPBASE 


EQU 




$200 


002330 




ORG 




$0000 


002331 


MSGPTR 


DS 




2 


002332 


MSGIDX 


DS 




1 


002333 










002334 


SCRNIDX 


DS 




1 


002335 


SCRNPTR 


DS 




2 


002336 


DATAPTR 


DS 




2 


002337 


DATABUF 


DS 




160 


002338 










002339 


SV.ZREG 


DS 




1 


002340 


SV.EREG 


DS 




1 


002341 


SV.SMODE 


DS 




1 


002342 


SV.EACR 


DS 




1 


002343 


SV.EPCR 


DS 




1 


002344 


SV.EIER 


DS 




1 


002345 










002346 


FLAG 


DS 




1 


002347 




DEND 






002348 




PAGE 






002349 


OPMSGRPLY 


EQU 






002350 










002351 


* 








002352 


* SAVE CURRENT 


VALUES 


AND 


SET UP 


002353 


* ENVIRONMENT, 


SCREEN 


MODE, AND 


002354 










002355 




PHP 







;ZERO PAGE DECLARATIONS 
; MESSAGE POINTER 
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002356 




SEI 






002357 




LDA 


Z.REG 




002358 




STA 


ZPBASE+SV.ZREG 


;SAVE ZERO PAGE 


002359 




LDA 


#<ZPBASE 




002360 




STA 


Z.REG 




002361 




STX 


MSGPTR 


;SAVE MESSAGE ADDRESS 


002362 




STY 


MSGPTR+1 




002363 




LDA 


E.REG 




002364 




STA 


SV . EREG 


;SAVE ENVIRONMENT 


002365 




AND 


#$5F 




002366 




ORA 


#$40 




002367 




STA 


E.REG 


; SCREEN OFF, I/O SPACE ON 


002368 




LDA 


SCRNMODE 




002369 




STA 


SV . SMODE 


;SAVE SCREEN MODE 


002370 




LDA 


#$00 




002371 




STA 


SCRNMODE 




002372 




BIT 


VM0 


;SET 4 COLUMN 


002373 




BIT 


VM1 


; BLACK & WHITE TEXT 


002374 




BIT 


VM2 




002375 




BIT 


VM3 




002376 




LDX 


E.ACR 




002377 




TXA 






002378 




AND 


#$20 




002379 




STA 


SV . EACR 


;SAVE AUXILIARY CONTROL REG 


002380 




TXA 






002381 




ORA 


#$20 




002382 




STA 


E.ACR 


;SET UP BL TIMER 


002383 




LDX 


E.PCR 




002384 




TXA 






002385 




AND 


#$F0 




002386 




STA 


SV.EPCR 


;SAVE PERIPHERAL CONTROL REG 


002387 




TXA 






002388 




AND 


#$0F 




002389 




ORA 


#$60 




002390 




STA 


E.PCR 


;SET UP VBL FLAGS 


002391 




LDA 


E. IER 




002392 




AND 


#$38 




002393 




STA 


E.IER 


; MASK VBL & BL INTERRUPTS 


002394 




STA 


SV.EIER 


;SAVE INTERRUPT MASKS 


002395 




PLP 






002396 


* 








002397 


* 








002398 


* SAVE 


SCREEN DATA AND 


CLEAR MESSAGE WINDOW 




002399 


* 








002400 




LDX 


#3 




002401 


OPR010 


JSR 


SETPTRS 




002402 




LDY 


#39 




002403 


OPR020 


LDA 


(SCRNPTR) , Y 


;SAVE SCREEN DATA 


002404 




STA 


(DATAPTR) , Y 




002405 




LDA 


#$A0 
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002406 




STA 


(SCRNPTR) , Y 


002407 




DEY 




002408 




BPL 


OPR020 


002409 




DEX 




002410 




BPL 


OPR010 


002411 








002412 








002413 


* MOVE MESSAGE TO WINDOW 




002414 








002415 




BIT 


BELL 


002416 




LDX 


#$00 


002417 




STX 


MSGIDX 


002418 


OPR100 


JSR 


SETPTRS 


002419 




LDY 


#$00 


002420 




STY 


SCRNIDX 


002421 


OPR110 


LDY 


MSGIDX 


002422 




INC 


MSGIDX 


002423 




LDA 


(MSGPTR) , Y 


002424 




BEQ 


OPR110 


002425 




BMI 


OPR200 


002426 




CMP 


#$0D 


002427 




BEQ 


OPR120 


002428 




LDY 


SCRNIDX 


002429 




INC 


SCRNIDX 


002430 




ORA 


#$80 


002431 




STA 


(SCRNPTR) , Y 


002432 




CPY 


#39 


002433 




BCC 


OPR110 


002434 


OPR120 


INX 




002435 




CPX 


#4 


002436 




BCC 


OPR100 


002437 


* 






002438 








002439 


* DISPLAY 


MESSAGE UNTIL ALPHA-LOCK KEY 


002440 








002441 


OPR200 


LDY 


#2 


002442 




LDA 


KBPORT 


002443 




AND 


#$08 


002444 




STA 


FLAG 


002445 


OPR210 


JSR 


VIDEO 


002446 




LDA 


KBPORT 


002447 




AND 


#$08 


002448 




CMP 


FLAG 


002449 




BEQ 


OPR210 


002450 




STA 


FLAG 


002451 




DEY 




002452 




BNE 


OPR210 


002453 








002454 








002455 


* RESTORE 


PREVIOUS CONTENTS OF WINDOW 



; BLANK SCREEN 



;SET UP MESSAGE 
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002456 






002457 


LDX 


#3 


002458 


OPR400 JSR 


SETPTRS 


002459 


LDY 


#39 


002460 


OPR410 LDA 


(DATAPTR) , Y 


002461 


STA 


(SCRNPTR) , Y 


002462 


DEY 




002463 


BPL 


OPR410 


002464 


DEX 




002465 


BPL 


OPR400 


002466 






002467 






002468 


* RESTORE E.6522, SCREEN 


MODE, ENVIRONMENT, 


002469 


* THEN RETURN TO CALLER 




002470 






002471 


PHP 




002472 


SEI 




002473 


LDA 


E.ACR 


002474 


AND 


#$DF 


002475 


OPA 


SV . EACR 


002476 


STA 


E.ACR 


002477 


LDA 


E.PCR 


002478 


AND 


#$0F 


002479 


ORA 


SV.EPCR 


002480 


STA 


E.PCR 


002481 


LDA 


SV.EIER 


002482 


ORA 


#$80 


002483 


STA 


E.IER 


002484 


LDA 


SV . SMODE 


002485 


STA 


SCRNMODE 


002486 


LSR 


A 


002487 


BCC 


OPR500 


002488 


BIT 


VM0+1 


002489 


OPR500 LSR 


A 


002490 


BCC 


OPR510 


002491 


BIT 


VM1 + 1 


002492 


OPR510 LSR 


A 


002493 


BCC 


OPR520 


002494 


BIT 


VM2+1 


002495 


OPR520 BIT 


SCRNMODE 


002496 


BVC 


OPR530 


002497 


BIT 


VM3+1 


002498 


OPR530 LDA 


SV . EREG 


002499 


STA 


E.REG 


002500 


LDA 


SV . ZREG 


002501 


STA 


Z.REG 


002502 


PLP 




002503 


RTS 




002504 


PAGE 




002505 


REP 


60 



& ZERO PAGE 



; RESTORE AUXILIARY CONTROL REG 

; RESTORE PERIPHERAL CONTROL REG 
; RESTORE INTERRUPT ENABLE REG 

; RESTORE SCREEN MODE 
; RESTORE VIDEO MODE 



; RESTORE ENVIRONMENT 
; RESTORE ZERO PAGE 
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002506 
002507 
002508 
002509 
002510 
002511 
002512 
002513 
002514 
002515 
002516 
002517 
002518 
002519 
002520 
002521 
002522 
002523 

002524 * 

002525 * 
002526 

002527 * 

002528 VIDEO 
002529 
002530 
002531 
002532 
002533 
002534 
002535 * 
002536 
002537 
002538 
002539 
002540 
002541 
002542 
002543 
002544 * 
002545 
002546 
002547 
002548 
002549 
002550 
002551 
002552 
002553 
002554 
002555 



SUBROUTINE VIDEO 

THIS SUBROUTINE POLLS THE VERTICAL-BLANKING AND 
COMPOSITE-BLANKING-TIMER FLAGS AND TURNS THE SCREEN 
OFF AND ON SO THAT ONLY THE MESSAGE WINDOW WILL BE 
DISPLAYED. 

THE E.6522 MUST BE INITIALIZED SO THAT E . CB2 FLAGS THE 
POSITIVE EDGE OF VBL AND E . T2 COUNTS BL PULSES. THE 
INTERRUPTS MUST BE MASKED AND THE PROPER COUNT MUST 
ALREADY BE STORED IN THE LOW ORDER BYTE OF E . T2 . 



ENTRY : 



VIDEO 



PARAMETERS: INTERRUPT SYSTEM DISABLED 



EXIT: 



A — UNDEFINED 

X, Y — PRESERVED 

REP 



VID010 



VID020 



VID030 



EQU 
LDA 
AND 
BEQ 
STA 
AND 
BNE 

LDA 
STA 
LDA 
STA 
LDA 
ORA 
SEC 
BCS 

LDA 
AND 
CLC 

STA 

LDA 

ROR 

STA 

RTS 

PAGE 

REP 



60 



E.IFR 

#$28 
VID030 
E. IFR 
#$20 
VID010 

#$1F 

E.T2 

#$00 

E.T2+1 

E.REG 

#$20 

VID020 

E.REG 
#$DF 



E.REG 

#$00 
A 

SCRNMODE 



60 



; GET VBL & BL FLAGS 

CLEAR FLAGS 
WHICH FLAG? 
BL 



;SET UP BL TIMER 



;SET UP FOR SCREEN ON 



;SET UP FOR SCREEN OFF 



Apple / // Sophisticated Operating System (SOS) 1.3 Source Code Listing » PTC 8/ 2001 » Page 58 of 391 



Apple/// Computer I nformation 



002556 












002557 




SUBROUTINE 


SETPTRS 




002558 












002559 




THIS 


SUBROUTINE SETS UP 


THE POINTERS TO 


002560 




WINDOW AND 


DATA SAVE AREA. 


002561 












002562 


* 


ENTRY 


: SETPTRS 




002563 


* 










002564 


* 


PARAMETERS : 


X — LINE 


NUMBER [ . . 3 ] 


002565 












002566 




EXIT: 


A — 


UNDEFINED 




002567 






X, Y 


— PRESERVED 


002568 


* 










002569 








REP 


60 


002570 


* 










002571 


SETPTRS 




EQU 


* 


002572 








TXA 




002573 








LSR 


A 


002574 








ORA 


#$04 


002575 








STA 


SCRNPTR+1 


002576 








LDA 


#$00 


002577 








ROR 


A 


002578 








STA 


SCRNPTR 


002579 








LDA 


#<DATABUF 


002580 








STA 


DATAPTR+1 


002581 








LDA 


DBUFADR, X 


002582 








STA 


DATAPTR 


002583 








RTS 




002584 












002585 


DBUFADR 




EQU 


* 


002586 








DFB 


>0*40+DATABUF 


002587 








DFB 


>1*40+DATABUF 


002588 








DFB 


>2*40+DATABUF 


002589 








DFB 


>3*40+DATABUF 


002590 








LST 


ON 


002591 












002592 


ZZEND 




EQU 


* 


002593 


ZZLEN 




EQU 


ZZEND-ZZORG 


002594 








IFNE 


ZZLEN-LENOMSG 


002595 








FAIL 


2, "SOSORG 


002596 








FIN 




002597 












002598 


******************************************* 


002599 


* 


END OF 


APPLE 


/// SOS 1.3 


SOURCE CODE FILE 


002600 


******************************************* 


002601 












002602 












002603 













FILE IS INCORRECT FOR OPRMSG" 
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002604 
002605 
002606 
002607 
002608 
002609 
002610 
002611 
002612 
002613 
002614 
002615 
002616 
002617 
002618 
002619 
002620 
002621 
002622 
002623 
002624 
002625 
002626 
002627 
002628 
002629 
002630 
002631 
002632 
002633 
002634 
002635 
002636 
002637 
002638 
002639 
002640 
002641 
002642 
002643 
002644 
002645 
002646 
002647 
002648 
002649 
002650 
002651 
002652 



DOCUMENT : SOS1 . 3 . lof 5 . ONE : SOS . SOSLDR . A . SRC . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR. A. SRC 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



PAGE 
REP 



110 



$1E00 + + 

! SOSLDR ! < -ENTRY 
$1FFF + + 

BANK 

$2000 + + + 



SOS MEMORY MAP 
(128K APPLE ///) 



BANK 1 



BANK 2 
-+ + + 



SOSLDR 
& 

INIT MODULE 



GLOBALS 



KERNEL 



EOF 
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002653 
002654 
002655 
002656 
002657 
002658 
002659 
002660 
002661 
002662 
002663 
002664 
002665 
002666 
002667 
002668 
002669 
002670 
002671 
002672 
002673 
002674 
002675 
002676 
002677 
002678 
002679 
002680 
002681 
002682 
002683 
002684 
002685 
002686 
002687 
002688 
002689 
002690 
002691 
002692 
002693 
002694 
002695 
002696 
002697 
002698 
002699 
002700 
002701 
002702 



$9FFF + + + + + + 

$A000 + + 

! SOSBOOT ! 
+ + 



FIGURE 1. SOS KERNEL FILE READ INTO $2 : 1E00 . . 9FFF BY SOS BOOT IN BLOCKS 0,1. 
SOS LOADER BEGINS EXECUTION AT THIS POINT. 



REP 110 
PAGE 

REP 110 

$1E00 + + 

! SOSLDR ! 
$1FFF + + 

BANK 
$2000 + + 



SOSLDR 
& 

INIT MODULE 



SOS MEMORY MAP 
(128K APPLE ///) 

BANK 1 



BANK 2 



LDREND 



FILE BUFFER 



INTERPRETER 

FILE 



INTERPRETER 
FILE 
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002703 
002704 
002705 
002706 
002707 
002708 
002709 
002710 
002711 
002712 
002713 
002714 
002715 
002716 
002717 
002718 
002719 
002720 
002721 
002722 
002723 
002724 
002725 
002726 
002727 
002728 
002729 
002730 
002731 



EOF 



$9FFF +- 



FIGURE 2. SOS INTERPRETER FILE READ INTO BANKS AND 1 
USING EXTENDED ADDRESSING (X=$80) . 



REP 



CHN 



110 



SOSLDR.B.SRC 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR.A.SRC 

************************************************************************* 
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002732 ================================================ 

002733 DOCUMENT : SOS1 . 3 . lof 5 . ONE : SOS . SOSLDR. C . SRC . TEXT 

002734 ================================================ 

002735 
002736 
002737 
002738 
002739 
002740 
002741 
002742 

002743 * 

002744 * SUBROUTINES: 

002745 * 

SOSLDR 



002746 
002747 
002748 
002749 
002750 
002751 
002752 
002753 
002754 
002755 
002756 
002757 
002758 
002759 
002760 
002761 
002762 
002763 
002764 
002765 
002766 
002767 
002768 
002769 
002770 
002771 
002772 
002773 
002774 
002775 
002776 
002777 
002778 
002779 
002780 



* APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR. C. SRC 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



PAGE 
REP 



100 



SOSLDR1 
( 1 ) MOVE 



(1) 



(1) 



INIT.KRNL 

WELCOME 

ADVANCE 

REVERSE 

DADVANCE 

DADD 
FLAGS 

NEXT. DIB 
GETMEM 

NEWDST 

BUILD. DSEG 
RELOC 
LINK 

SET. DRIVES 

ALLOC . DEV 



"MAIN PROGRAM" 
"PROCESSES KERNEL/ INTERPRETER/DRIVER FILES" 
"MOVES SRC. P. .SRC.P+CNT-1 TO DST.P. . DST . P+CNT-1 " 
"CALLS KERNEL INITIALIZATION MODULES" 

"PRINTS WELCOME MESSAGE ("APPLE ///", VERSION, DATE/TIME, COPYRIGHT) 

"ADVANCES WRK.PTR TO NEXT INTERP /KERNEL MODULE. INITS SRC.P, DST.P, CNT FOR MOVE" 
"REVERSES TITLE/CODE/RELOC COUNTS TO ALLOW DRIVER FILE TO BE PROCESSED FM BACK TO FRONT" 
"ADVANCES WORK.P TO NEXT DRIVER MODULE. INITS SRC.P, CNT, REL . P FOR MOVE" 
"ADVANCES WORK.P TO NEXT DRIVER FIELD" 

"PROCESSES "INACTIVE" & "PAGE ALIGN" FLAGS IN DRIVER MODULE'S DIBS" 
"ADVANCES TO NEXT DIB IN DRIVER MODULE" 

"COMPUTES DESTINATION BASE ADDRESS FOR NEXT DRIVER MODULE" 

"COMPUTES DESTINATION BASE ADDRESS, ALIGNING ON PAGE BOUNDARY IF REQUESTED" 
"COMPUTES # OF PAGES TO ADD TO DRIVER SEGMENT AND WHETHER TO BEGIN A NEW SEGMENT" 
"RELOCATES DRIVER MODULE'S CODE FIELD USING RELOCATION FIELD" 

"LINKS FIRST DIB TO PREVIOUS DRIVER'S LAST "ACTIVE" DIB, AND ADDS SDT ENTRY" 
"INITIALIZES DIB LINKS IN KERNEL'S FLOPPY DRIVER" 

"ADDS A NEW ENTRY TO THE DEVICE MANAGER'S SYSTEM DEVICE TABLE (SDT)" 
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002781 


* 








002782 






ALLOC. SEG "ALLOCATES SEGMENTS FOR KERNEL, INTERPRETER AND SYSTEM WORK AREA" 


002783 


* 








002784 






RSEG "CALLS MEMORY MANAGER TO ALLOCATE SEGMENTS FOR 


THE KERNEL AND INTERPRTER" 


002785 


* 








002786 






ALLOC. DSEG "ALLOCATES SEGMENTS FOR DRIVER MODULES" 




002787 


* 








002788 


* 


ERROR "DISPLAYS ERROR MESSAGE, SOUNDS BELL AND LOOPS 


UNTIL CONTROL/RESET PRESSED" 


002789 










002790 




(1) 


- INDICATES THAT THE ROUTINE PERFORMS BANK SWITCHING AND MUST ( ! ) 


BE OUTSIDE THE 32K RAM BANKS 


002791 






REP 100 




002792 






PAGE 




002793 






REP 100 




002794 


* 








002795 




SOS. 


KERNEL FILE FORMAT 




002796 


* 








002797 




(8) 


LABEL < + 




002798 






= "SOS KRNL" ! 




002799 


* 




! 




002800 


* 


(2) 


HEADER COUNT ! 




002801 






HEADER ! 




002802 


* 




= # OF FLOPPY DRIVES ! CONTAINED IN THIS LISTING 




002803 






= INTERPRETER PATHNAME ! 




002804 






= DRIVER PATHNAME ! 




002805 






] 




002806 


* 


(4) 


ADR & COUNT ! 




002807 


* 




SOSLDR CODE < + 




002808 


* 








002809 


* 


(4) 


ADR & COUNT 




002810 






GLOBALS 




002811 










002812 


* 


(4) 


ADR & COUNT 




002813 






KERNEL CODE 




002814 










002815 






REP 100 




002816 


* 








002817 




SOS. 


INTERP FILE FORMAT 




002818 


* 








002819 


* 


(8) 


LABEL 




002820 






= "SOS NTRP " 




002821 


* 








002822 


* 


(2) 


HEADER COUNT 




002823 










002824 




(4) 


ADR & COUNT 




002825 


* 




INTERPRETER CODE 




002826 


* 








002827 






REP 100 




002828 










002829 




SOS. 


DRIVER FILE FORMAT 




002830 
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002831 


* 


(8) 


LABEL 






002832 






= "SOS DRVR" 






002833 












002834 




(2) 


HEADER COUNT 






002835 


* 




= # OF FLOPPY DRIVES 




002836 






= CHARACTER SET TABLE 




002837 


* 




= KEYBOARD TABLE 




002838 


* 










002839 


* 








+ 


002840 




(2) 


DM #N TITLE COUNT 


< + 


! RELOCATION FIELD FORMAT 


002841 






TITLE FIELD 


] 




002842 




(2) 


DM #N CODE COUNT 


! 


DRIVER MODULE #N ! CONSISTS OF A LIST OF 2 BYTE POINTERS 


002843 


* 




CODE FIELD 


! 


! WHICH POINT TO THE LOW BYTE OF A TWO 


002844 


* 


(2) 


DM #N RELOC COUNT 


i 


! BYTE QUANTITY TO BE RELOCATED. 


002845 






RELOC FIELD 


< + 


+ 


002846 












002847 












002848 






$FFFF = THE END 






002849 


* 










002850 






REP 


100 




002851 






PAGE 






002852 






REP 


100 




002853 












002854 




SOSLDR 


- EXTERNAL DECLARATIONS 




002855 


* 










002856 






REP 


100 




002857 






EXTRN 


SYSBANK 




002858 






EXTRN 


MEMSIZE 




002859 






EXTRN 


SCRNMODE 




002860 






EXTRN 


SOSVER 




002861 






EXTRN 


SOSVERL 




002862 


* 










002863 






EXTRN 


INT. INIT 


; (IPL) INTERRUPT INIT 


002864 






EXTRN 


EVQ . INIT 


; (IPL) EVENT QUEUE INIT 


002865 






EXTRN 


DMGR. INIT 


; DEVICE MANAGER INIT 


002866 






EXTRN 


MAX . DNUM 




002867 






EXTRN 


SDT.SIZE 




002868 






EXTRN 


SDT.DIBL 




002869 






EXTRN 


SDT.DIBH 




002870 






EXTRN 


SDT.ADRL 




002871 






EXTRN 


SDT.ADRH 




002872 






EXTRN 


SDT . BANK 




002873 






EXTRN 


SDT.UNIT 




002874 






EXTRN 


BLKD .SIZE 




002875 






EXTRN 


BLKDLST 




002876 






EXTRN 


CFMGR. INIT 


; CHAR FILE MANAGER INIT 


002877 






EXTRN 


MMGR. INIT 


; MEMORY MANAGER INIT 


002878 






EXTRN 


BMGR. INIT 


; BUFFER FILE MANAGER INIT 


002879 






EXTRN 


BFM. INIT 


; BLOCK FILE MANAGER INIT 


002880 






EXTRN 


BFM. INIT2 


; BLOCK FILE MANAGER INIT2 
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EXTRN 


CLK . INIT 




EXTRN 


DIB1 




EXTRN 


DIB2 




EXTRN 


DIB3 


* 


EXTRN 


DIB4 


* ENTRY I. BASE 


P ; USED BY 


BFM.INIT2 (HARDW 




PAGE 






REP 


100 


* FILE DATA DECLARATIONS 






REP 


100 


* KERNEL FILE 








REP 


100 


K .FILE 


ASC 


"SOS KRNL" 


K . HDR . CNT 


DW 


LDR.ADR-K. DRIVES 


K. DRIVES 


DFB 


$1 


K . FLAGS 


DFB 


$0 


I . PATH 


DFB 


$E 




ASC 


".Dl/SOS.INTERP" 




DS 


$30-$F 


D . PATH 


DFB 


$E 




ASC 


" .Dl /SOS. DRIVER" 




DS 


$30-$F 


LDR.ADR 


DW 


$0 


LDR.CNT 


DW 


ZZEND-SOSLDR 




REP 


100 



Apple/// Computer I nformation 



002881 
002882 
002883 
002884 
002885 
002886 
002887 
002888 
002889 
002890 
002891 
002892 
002893 
002894 
002895 
002896 
002897 
002898 
002899 
002900 
002901 
002902 
002903 
002904 
002905 
002906 
002907 
002908 
002909 
002910 
002911 
002912 
002913 
002914 
002915 
002916 
002917 
002918 
002919 
002920 
002921 
002922 
002923 
002924 
002925 
002926 
002927 
002928 
002929 
002930 



; CLOCK SYSTEM CALL INIT 

; ON BOARD DISK DRIVER'S DIBS (1-4) 



RESERVED FOR FUTURE USE 



* INTERPRETER/DRIVER FILES 

* ERROR MESSAGES 

* WELCOME MESSAGES 

REP 

PAGE 

REP 



DEFINED IN BACK OF THIS LISTING 



100 



100 



SOSLDR - DATA DECLARATIONS (1) 



TRUE 
FALSE 

Z.REG 
E.REG 
B.REG 

CZPAGE 
CSPAGE 
CXPAGE 
SZPAGE 



REP 
EQU 
EQU 

EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 



100 
$80 
$0 

$FFD0 
$FFDF 
$FFEF 

$1A00 
$1B00 
$1600 
$1800 
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002931 


SXPAGE 


EQU 


$1400 




002932 


SSPAGE 


EQU 


$0100 




002933 


* 








002934 


ROM. ADR 


EQU 


$F1B9 




002935 


ROM. ID 


EQU 


$A0 




002936 




PAGE 






002937 




REP 


100 




002938 










002939 


* SOSLDR - DATA 


DECLARATIONS (2) 




002940 


* 








002941 




REP 


100 




002942 


ZPAGE 


EQU 


$00 




002943 


* 








002944 


K . BASE 


EQU 


ZPAGE+$0 


; SOSLDR1 SUBROUTINE 


002945 


I . BASE . P 


EQU 


ZPAGE+$2 




002946 


RDBUF . P 


EQU 


ZPAGE+$4 




002947 


SYSBUF . P 


EQU 


ZPAGE+$6 




002948 


TEMP . BANK 


EQU 


ZPAGE+$8 




002949 


TEMP . ADRH 


EQU 


ZPAGE+$9 




002950 


WORK.P 


EQU 


ZPAGE+$A 




002951 










002952 


REV . SAVE 


EQU 


ZPAGE+$C 


; REVERSE SUBROUTINE 


002953 










002954 


FIRST. ADIB 


EQU 


ZPAGE+$10 


; FLAGS SUBROUTINE 


002955 


PREV.ADIB.P 


EQU 


ZPAGE+$12 




002956 


DIB.P 


EQU 


ZPAGE+$14 




002957 


PG. ALIGN 


EQU 


ZPAGE+$16 




002958 


DIB. FLAGS 


EQU 


$14 




002959 


DIB.DCB 


EQU 


$20 




002960 










002961 


PREVBANK 


EQU 


ZPAGE+$18 


; GETMEM SUBROUTINE 


002962 


PREVDST 


EQU 


ZPAGE+$19 




002963 










002964 


CODE . P 


EQU 


ZPAGE+$1C 


; RELOCATION SUBROUTINE 


002965 


REL.P 


EQU 


ZPAGE+$1E 




002966 


REL . END 


EQU 


ZPAGE+$20 




002967 


* 








002968 


SRC.P 


EQU 


ZPAGE+$22 


; MOVE SUBROUTINE 


002969 


DST.P 


EQU 


ZPAGE+$24 




002970 


CNT 


EQU 


ZPAGE+$2 6 




002971 


* 








002972 


DSTBANK 


EQU 


ZPAGE+$2A 


; LINK SUBROUTINE 


002973 


LINK.P 


EQU 


ZPAGE+$2C 




002974 


* 








002975 


DIB. ENTRY 


EQU 


2 


; ALLOC. DEV SUBROUTINE 


002976 


DIB. UNIT 


EQU 


4+16+2 




002977 


DIB.DTYPE 


EQU 


4+16+3 




002978 










002979 


ETEMP 


EQU 


ZPAGE+$2E 


; ERROR SUBROUTINE 


002980 











! <VARNAME> . P 
+ 



3 BYTE ZPAGE POINTER ! 
+ 
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002981 WTEMP EQU ZPAGE+$2F ; WELCOME SUBROUTINE 

002982 

002983 ************************************************************************* 

002984 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR.C.SRC 

002985 ************************************************************************* 

002986 
002987 
002988 
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002989 

\J \J -J <J ~s 














002990 


DOCUMENT :SOS1.3.1of5 


ONE: 


SOS . SOSLDR . D . SRC . TEXT 






















002991 














00299? 














002993 


************************************************************************* 








002994 


* APPLE /// SOS 1.3 SOURCE 


CODE FILE: SOSLDR. D. SRC 








002995 










002996 


* ASSEMBLER: APPLE ] [ 


6502 


ASSEMBLER from APPLE COMPUTER TOOLKIT 








002997 














002998 

\J \) -J J \J 


PAGE 












002999 


REP 




100 








003000 

\J \J ~J \J \J \J 


* 












003001 


* SOS LOADER - 












003002 


* 












003003 

v v -J VJ u J 


* (MAIN PROGRAM) 












003004 

\J \J ~J \J \J ^ 


REP 




100 








003005 


SOSLDR EQU 




* 


-1 






003006 


LDA 




#0 ; ZERO SOS/USER X, Z AND STACK PAGES 


! SEE 


FIGURE 


1 . 


003007 


TAX 




; 


-1 






003008 


SLDR010 STA 




CZPAGE,X 








003009 

\J \J ~J \J \J y 


STA 




CXPAGE,X 








003010 

vy Jul v 


STA 




CSPAGE,X 








003011 


STA 




SZPAGE,X 








003012 


STA 




SXPAGE,X 








003013 


STA 




SSPAGE,X 








003014 


DEX 












003015 


BNE 




SLDR010 








00301 6 

\J \J ~J VJ _L <J 


* 




; SETUP SOS CALL ENVIRONMENT (WRITE PROTECT=OFF ) 








003017 


LDA 




#$30 ; E:=( 0.0.1.1:0.0.0.0 ) 








003018 


STA 




E.REG ; ( l.I.S.R:W.P.R.R ) 








003019 

\J \J ~J \J -L -J 


* 












003020 


LDX 




#$FB ; CONSOLE 1.0 MODIFIES STACK DURING D.INIT 


CALL 






003021 


TXS 












003022 

\J \J ~J \J 


LDA 




#<CZPAGE ; ZREG : =CAT.T.F,R' S Z PAGE 








003023 


STA 




Z.REG 








003024 


* 




. + + 








003025 


JSR 




SOSLDR1 ; ! PROCESS KRNL/INTERP/DRVR FILES ! 








003026 


* 




. + + 








003027 


LDA 




E.REG 








003028 


AND 




#$10 ; SETUP SOS CALL ENVIRONMENT (WRITE PROTECT=ON) 






003029 


ORA 




#$28 ; E:=( . . 1 .X: 1 . . . ) 








003030 


STA 




E.REG ; ( l.I.S.R:W.P.R.R ) 








003031 


* 












003032 


LDX 




#$FF ; STACK. REG :=$FF 








003033 


TXS 












003034 


LDA 




#<CZPAGE ; ZREG : =CAT.T.F,R' S Z PAGE 








003035 


STA 




Z.REG 








003036 


* 




+ 




+ 




003037 


LDA 




SYSBANK ; BREG : =SYSBANK 


! SEE 


FIGURE 


4 . 
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003038 




STA 


B.REG 




003039 




JMP 


(I .BASE. P) 


; SOS LOAD COMPLETE - JMP TO INTERPRETER 


003040 


* 








003041 


*THE END. 








003042 




REP 


100 




003043 




PAGE 






003044 




REP 


100 




003045 










003046 


* MOVE ( IN: 


SRC.P 






003047 


* IN: 


DST.P 






003048 


* IN: 


A="BANK" 






003049 


* IN: 


CNT ) 






003050 


* 








003051 


* LOCAL 


END 






003052 


* (MOVES SRC.P 


.SRC.P+CNT- 


-1 TO DST.P. 


.DST.P+CNT-1) "CNT PARM IS DESTROYED" 


003053 




REP 


100 




003054 


MOVE 


EQU 


* 




003055 




TAX 






003056 




LDA 


B.REG 


; SAVE BANK REGISTER 


003057 




PHA 






003058 




STX 


B.REG 


; BREG:=A 


003059 




LDA 


CNT+1 


; IF CNT <> 


003060 




ORA 


CNT 


THEN 


003061 




BEQ 


MOVE. EXIT 




003062 




LDA 


CNT 


CNT:=CNT-1 


003063 




BNE 


MOVE010 




003064 




DEC 


CNT+1 




003065 


MOVE010 


DEC 


CNT 




003066 




CLC 




SRC.P :=SRC. P+PAGE. CNT 


003067 




LDA 


SRC.P+1 




003068 




ADC 


CNT+1 




003069 




STA 


SRC.P+1 




003070 




LDA 


DST.P+1 


DST.P :=DST. P+PAGE. CNT 


003071 




ADC 


CNT+1 




003072 




STA 


DST.P+1 




003073 




INC 


CNT+1 


PAGE . CNT : =PAGE . CNT+1 


003074 




LDY 


CNT 


Y : =BYTE . CNT 


003075 




BEQ 


MOVE020 


IF Y=0 THEN M2 


003076 


* 








003077 


MOVE . PAGE 


LDA 


(SRC.P) , Y 


; Ml : DO 


003078 




STA 


(DST.P) , Y 


(DST.P) ,Y: = (SRC.P) ,Y 


003079 




DEY 




Y:=Y-1 


003080 




BNE 


MOVE . PAGE 


UNTIL Y=0 


003081 


MOVE020 


LDA 


(SRC.P) , Y 


;M2: (DST . P) , Y : = (SRC . P ) , Y 


003082 




STA 


(DST.P) , Y 




003083 




DEY 




Y:=Y-1 


003084 




DEC 


SRC.P+1 


SRC.P:=SRC.P-256 


003085 




DEC 


DST.P+1 


DST.P:=DST.P-256 


003086 




DEC 


CNT+1 


PAGE . CNT : =P AGE . CNT-1 


003087 




BNE 


MOVE . PAGE 


IF PAGE. CNT <> THEN Ml 
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003088 


* 










003089 






INC 


SRC.P+1 


; RESTORE SRC.P 


003090 






INC 


DST.P+1 


DST.P 


003091 












003092 


MOVE. EXIT 


PLA 




; RESTORE BANK REGISTER 


003093 






STA 


B.REG 




003094 






RTS 






003095 






PAGE 






003096 






REP 


100 




003097 


* 










003098 




LINK ( IN: 


DST.P 






003099 


* 


IN: 


DSTBANK 






003100 


* 


IN: 


PREVBANK 






003101 


* 


IN: 


FIRST. ADIB 






003102 




I/O: 


SDT.TBL 






003103 




I/O: 


BLKDLST 






003104 


* 


OUT: 


LINKED DRIVER MODULE ) 




003105 












003106 




OWN: 


LINK.P 






003107 


* 


(LINKS FIRST 


DIB TO PREVIOUS DRIVER'S 


LAST "ACTIVE" DIB, AND ADDS SDT ENTRY) 


003108 






REP 


100 




003109 


LINK 


EQU 


* 




003110 






CLC 




; FIRST. ADIB:=0:DST.P+FIRST. ADIB 


003111 






LDA 


DST.P 




003112 






ADC 


FIRST. ADIB 




003113 






STA 


FIRST. ADIB 




003114 






LDA 


DST.P+1 




003115 






ADC 


FIRST. ADIB+1 




003116 






STA 


FIRST. ADIB+1 




003117 






LDA 


#0 




003118 






STA 


CXPAGE+FIRST 


ADIB+1 


003119 






LDA 


PREVBANK 


; BREG : =PREVBANK 


003120 






STA 


B.REG 




003121 






LDY 


#0 


; (LINK.P) :=FIRST.ADIB 


003122 






LDA 


FIRST. ADIB 




003123 






STA 


(LINK.P) , Y 




003124 






INY 






003125 






LDA 


FIRST. ADIB+1 




003126 






STA 


(LINK.P) , Y 




003127 






LDA 


DSTBANK 


; BREG : =DSTBANK 


003128 






STA 


B.REG 




003129 






LDA 


FIRST. ADIB 


; LINK. P:=FIRST. ADIB 


003130 






STA 


LINK.P 




003131 






LDA 


FIRST. ADIB+1 




003132 






STA 


LINK.P+1 




003133 


WALKLINKS 


JSR 


ALLOC . DEV 


; ALLOC. DEV (LINK.P BREG. IN, SDT.TBL BLKDLST. IO) 


003134 


LINK010 


LDY 


#0 


; WHILE (LINK.P) <> AND (LINK.P) <> LINK.P 


003135 






LDA 


(LINK.P) , Y 




003136 






INY 






003137 






ORA 


(LINK.P) , Y 
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003138 
003139 
003140 
003141 
003142 
003143 
003144 
003145 
003146 
003147 
003148 
003149 
003150 
003151 
003152 
003153 
003154 
003155 
003156 
003157 
003158 
003159 
003160 
003161 
003162 
003163 
003164 
003165 
003166 
003167 
003168 
003169 
003170 
003171 
003172 



LINK030 



LINK100 



BEQ 
LDA 
CMP 
BNE 
DEY 
LDA 
CMP 
BEQ 
LDY 
LDA 
TAX 
INY 
LDA 
STX 
STA 
JSR 
JMP 

LDY 
TYA 
STA 
INY 
STA 
DEY 
STY 
RTS 



LINK100 
(LINK.P) , Y 
LINK.P+1 
LINK030 

(LINK.P) , Y 
LINK.P 
LINK100 
#0 

(LINK.P) , Y 



(LINK.P) , Y 
LINK.P 
LINK.P+1 
ALLOC . DEV 
LINK010 

#0 

(LINK.P) , Y 
(LINK.P) , Y 
B.REG 



LINK . INIT ( 



IN: 
IN: 

I/O: 
I/O: 



A=# DRIVES 
DIB1. .4 
SDT.TBL 
BLKDLST 



DO LINK.P := (LINK.P) 



" ALLOC. DEV (LINK.P BREG.IN, SDT.TBL BLKDLST. 10) 



; (LINK.P) :=0 



; BREG : =0 



003173 LINK. INIT EQU 








003174 


JSR 


SET. DRIVES 


; SET. DRIVES (A=#DRIVES. IN, DIB1 . 


. 4 . IN) 


003175 


LDA 


#0 






003176 


STA 


MAX . DNUM 


; MAXDNUM:=0 




003177 


STA 


BLKDLST 


; BLKDLST :=0 




003178 


STA 


CXPAGE+LINK.P+1 


; LINK.P :=0 :DIB1 




003179 


LDA 


#>DIB1 






003180 


STA 


LINK.P 






003181 


LDA 


#<DIB1 






003182 


STA 


LINK.P+1 






003183 


JMP 


WALKLINKS 






003184 


PAGE 








003185 


REP 


100 






003186 * 










003187 * 


ALLOC. DEV ( IN: LINK 


p 
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003188 




IN: 


B.REG 








003189 


* 


I/O: 


SDT . TBL 




(SYSTEM DEVICE TABLE) 


003190 


* 




IN: 


SDT. SIZE 


= CONSTANT 




003191 






IN: 


DIB. ENTRY 


= CONSTANT 


DEV DIB ADR BANK UNIT 


003192 


* 




IN: 


DIB. UNIT 


= CONSTANT 


I I I I 


003193 


* 




IN: 


DIB.DTYPE 


= CONSTANT 


1 ! ! ! ! 


003194 






I/O 


MAX . DNUM 




2 ! ! ! ! 


003195 






OUT 


SDT . BANK 




I i i i 


003196 






OUT 


SDT. DIB 




i i i i 


003197 






OUT 


SDT. ADR 




i i i i 


003198 






OUT 


SDT. UNIT 




MAX . DNUM 


003199 




I/O: 


BLKDLST 






003200 


* 




IN: 


BLKD .SIZE 


= CONSTANT 




003201 


* (ADDS A NEW 


ENTRY 


TO THE 


DEVICE MANAGER'S SYSTEM DEVICE TABLE (SDT)) 


003202 




REP 




100 






003203 


ALLOC . DEV 


EQU 










003204 




INC 




MAX . DNUM 




MAX . DNUM : =MAX . DNUM+1 


003205 




LDX 




MAX . DNUM 


r 


IF MAX. DNUM >= SDT. SIZE 


003206 




CPX 




#>SDT.SIZE 




THEN 


003207 




BCC 




ADEV010 






003208 




LDX 




#ERR8X 




ERROR ("TOO MANY DEVICES") 


003209 




LDY 




#ERR8L 






003210 




JSR 




ERROR 






003211 


ADEV010 


LDA 




B.REG 


r 


SDT . BANK, X : =BREG 


003212 




STA 




SDT. BANK, X 






003213 




CLC 






r 


SDT.DIB,X:=LINK.P+4 


003214 




LDA 




LINK.P 






003215 




ADC 




#4 






003216 




STA 




SDT.DIBL,X 






003217 




LDA 




LINK.P+1 






003218 




ADC 




#0 






003219 




STA 




SDT.DIBH,X 






003220 




SEC 






r 


SDT.ADR,X:=(LINK.P) , DIB . ENTRY-1 


003221 




LDY 




#D IB. ENTRY 






003222 




LDA 




(LINK.P) , Y 






003223 




SBC 




#1 






003224 




STA 




SDT . ADRL, X 






003225 




INY 










003226 




LDA 




(LINK.P) , Y 






003227 




SBC 




#0 






003228 




STA 




SDT . ADRH, X 






003229 




LDY 




#DIB.UNIT 


r 


SDT. UNIT, X:=(LINK.P) , DIB. UNIT 


003230 




LDA 




(LINK.P) , Y 






003231 




STA 




SDT. UNIT, X 






003232 




LDY 




#DIB . DTYPE 


r 


IF (LINK.P) , DIB. DTYPE = "BLOCK DEVICE" 


003233 




LDA 




(LINK.P) , Y 






003234 




BPL 




ADEV.EXIT 






003235 




TXA 








THEN 


003236 




INC 




BLKDLST 




BLKDLST : =BLKDLST+1 


003237 




LDX 




BLKDLST 




IF BLKDLST >= BLKD. SIZE 
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003238 


CPX 


#>BLKD.SIZE 




THEN 


003239 


BCC 


ADEV020 






003240 


LDX 


#ERR9X 




ERROR ("TOO MANY BLOCK DEVICES") 


003241 


LDY 


#ERR9L 






003242 


JSR 


ERROR 






003243 


ADEV020 STA 


BLKDLST, X 




BLKDLST, X : =MAX . DNUM 


003244 


ADEV. EXIT RTS 






RETURN 


003245 


PAGE 








003246 


REP 


100 






003247 










003248 


* SOSLDR1 () 








003249 










003250 


* (PROCESSES KERNEL/ INTERPRETER/DRIVER FILES) 






003251 


REP 


100 






003252 


SOSLDR1 EQU 








003253 


LDX 


#$1F 




COPY ROM'S DISK CORE ROUTINE ZPAGE VARS TO SOS 


003254 


LDR010 LDA 


$380, X 






003255 


STA 


SZPAGE,X 






003256 


DEX 








003257 


BPL 


LDR010 






003258 


REP 


100 






003259 


* PROCESS KERNEL FILE 








003260 


REP 


100 






003261 










003262 


* MOVE AND INITIALIZE SOS 


GLOBALS 






003263 










003264 


LDA 


#>LDR.ADR 




WORK. P:=0:LDR. ADR 


003265 


STA 


WORK.P 






003266 


LDA 


#<LDR.ADR 






003267 


STA 


WORK.P+1 






003268 


JSR 


ADVANCE 




ADVANCE (WORK.P. IO, SRC.P DST.P CNT.OUT) 


003269 


* 








003270 


LDA 


B.REG 




MOVE(SRC.P DST.P A=BREG CNT.IN) 


003271 


JSR 


MOVE 






003272 










003273 


LDA 


B.REG 




SYSBANK : =BREG 


003274 


AND 


#$0F 






003275 


STA 


SYSBANK 






003276 


ASL 


A 




MEMSIZ:=SYSBANK*2+4 "16K CHUNKS" 


003277 


CLC 








003278 


ADC 


#4 






003279 


STA 


MEMSIZE 




AND, MEMSIZE (SIZE IN 16K BYTE "CHUNKS") 


003280 


* 








003281 


* MOVE KERNAL CODE 








003282 










003283 


JSR 


ADVANCE 


r 


ADVANCE (WORK.P. IO, SRC.P DST.P CNT.OUT) 


003284 










003285 


LDA 


DST.P 


r 


K.BASE:=DST.P 


003286 


STA 


K . BASE 






003287 


LDA 


DST.P+1 
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003288 
003289 
003290 
003291 
003292 
003293 
003294 
003295 
003296 
003297 
003298 
003299 
003300 
003301 
003302 
003303 
003304 
003305 
003306 
003307 
003308 
003309 
003310 
003311 
003312 
003313 
003314 
003315 
003316 
003317 
003318 
003319 
003320 
003321 
003322 
003323 
003324 
003325 
003326 
003327 
003328 
003329 
003330 
003331 
003332 
003333 
003334 
003335 
003336 
003337 



STA 
LDA 
JSR 



K.BASE+1 

B.REG 

MOVE 



; MOVE(SRC.P DST.P A=BREG CNT.IN) 



* MOVE LOADER TO BANK AND SWITCH FROM SYSTEM BANK TO BANK 

; MOVE (SRC. P=0: 2000 DST . P=8F : 2000 A=BREG CNT=LDR.END-$2000) 



LDA 
STA 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
JSR 
LDA 
STA 



#>$2000 
SRC.P 
DST.P 
#<$2000 
SRC.P+1 
DST.P+1 
#$8F 

CXPAGE+DST.P+1 
#>LDREND-$2000 
CNT 

#<LDREND-$2000 

CNT+1 

B.REG 

MOVE 

#0 

B.REG 



BREG : =0 



* INITIALIZE SDT TABLE, KERNEL AND PRINT WELCOME MESSAGE 



LDA 
JSR 
JSR 
JSR 



K. DRIVES 
LINK. INIT 
INIT.KRNL 
WELCOME 



; LINK. INIT (A=K. DRIVES DIB1 . . 4 . IN, SDT . TBL BLKDLST . IO) 

; INIT . KRNL ( ) 
; WELCOME ( ) 



LDA E . REG 

ORA #$03 

STA E.REG 

LDA ROM. ADR 

CMP #ROM.ID 

BEQ LDR020 

LDX #ERR7X 

LDY #ERR7L 

JSR ERROR 

LDA E . REG 

AND #$F6 

STA E.REG 

REP 100 

* PROCESS INTERPRETER FILE 

REP 100 

* OPEN SOS INTERPRETER FILE (DEFAULT= ' SOS . INTERP ' ) 



ENABLE ROM BANK 



IF MONITOR ROM <> NEW 
THEN 

ERROR ("ROM ERROR: PLEASE NOTIFY YOUR DEALER") 



LDR020 



DISABLE ROM BANK 



LDR030 



LDY 
LDA 



I . PATH 
I .PATH, Y 



; OPEN (PATHNAME :=I. PATH 
REFNUM=OPEN . REF 
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003338 






STA 


PATH, Y 


SYSBUF.P: =80 :LDREND-2000 ) 


003339 






DEY 






003340 






BPL 


LDR030 




003341 












003342 






LDA 


#>LDREND-$2000 




003343 






STA 


SYSBUF.P 




003344 






LDA 


#<LDREND-$2000 




003345 






STA 


SYSBUF.P+1 




003346 






LDA 


#$80 




003347 






STA 


CXPAGE+SYSBUF . P+l 




003348 












003349 












003350 






BRK 






003351 






DFB 


OPEN 




003352 






DW 


OPEN . PARMS 




003353 






BEQ 


LDR04 




003354 






LDX 


#ERR1X 


; ERROR (" INTERPRETER FILE NOT FOUND") 


003355 






LDY 


#ERR1L 




003356 






JSR 


ERROR 




003357 


LDR040 


LDA 


OPEN . REF 




003358 






STA 


READ . REF 




003359 






STA 


CLOSE. REF 




003360 


* 










003361 


* 


READ 


IN ENTIRE INTERPRETER FILE 




003362 












003363 






LDA 


#$80 


; READ ( REFNUM=READ . REF 


003364 






STA 


CXPAGE+RDBUF.P+1 


RDBUF. P:=80:FILE 


003365 






LDA 


#>FILE 


BYTES=$FFFF-FILE+1 


003366 






STA 


RDBUF . P 


BYTESRD=I . BYTESRD ) 


003367 






LDA 


#<FILE 




003368 






STA 


RDBUF. P+l 




003369 


* 










003370 






BRK 






003371 






DFB 


READ 




003372 






DW 


READ . PARMS 




003373 






BEQ 


LDR050 




003374 






LDX 


#ERR0X 


; ERROR ("I/O ERROR") 


003375 






LDY 


#ERR0L 




003376 






JSR 


ERROR 




003377 


* 








+ 


003378 


* 


CLOSE 


INTERPRETER FILE 


AND CHECK LABEL 


! SEE 


003379 


* 








+ 


003380 


LDR050 


BRK 




; CLOSE (REFNUM=CLOSE .REF) 


003381 






DFB 


CLOSE 




003382 






DW 


CLOSE . PARMS 




003383 






LDY 


#7 


; CHECK LABEL 


003384 


LDR051 


LDA 


(RDBUF. P) , Y 




003385 






CMP 


I . LABEL, Y 




003386 






BNE 


LDR052 




003387 






DEY 
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003388 
003389 
003390 
003391 
003392 
003393 
003394 
003395 
003396 
003397 
003398 
003399 
003400 
003401 
003402 
003403 
003404 
003405 
003406 
003407 
003408 
003409 
003410 
003411 
003412 
003413 
003414 
003415 
003416 
003417 
003418 
003419 
003420 
003421 
003422 
003423 
003424 
003425 
003426 
003427 
003428 
003429 
003430 
003431 
003432 
003433 
003434 
003435 
003436 
003437 



LDR052 



BPL 
BMI 
LDX 
LDY 
JSR 



MOVE INTERPRETER CODE 



LDR053 



LDA 
STA 
LDA 
STA 
LDA 
STA 

JSR 

LDA 
STA 
LDA 
STA 
LDA 
STA 

CLC 
LDA 
ADC 
TAX 
LDA 
ADC 
CPX 
SBC 
BEQ 
BCC 
LDX 
LDY 
JSR 



LDR070 



LDA 
JSR 
REP 

PROCESS DRIVER FILE 
REP 

OPEN SOS DRIVER FILE 



LDR080 



LDY 
LDA 
STA 
DEY 



LDR051 
LDR053 
#ERR2X 
#ERR2L 
ERROR 



#>I . HDR . CNT-2 
WORK.P 

#<I .HDR. CNT-2 

WORK.P+1 

#$80 

CXPAGE+WORK.P+1 

ADVANCE 

DST.P 

I . BASE . P 

DST.P+1 

I . BASE . P+l 

#0 

CXPAGE+I . BASE . P+l 



CNT 
DST.P 

CNT+1 

DST.P+1 

K . BASE 

K.BASE+1 

LDR070 

LDR070 

#ERR3X 

#ERR3L 

ERROR 

SYSBANK 

MOVE 

100 

100 

(DEFAULT= ' SOS . DRIVER ' ) 

D . PATH 
D . PATH, Y 
PATH, Y 



; ERROR ("INVALID INTERPRETER FILE") 



; WORK. P:=80:I. HDR. CNT-2 



; ADVANCE (WORK.P. IO, SRC.P DST.P CNT. OUT) 
; I. BASE. P:=0: DST.P 



; IF DST.P+CNT > K . BASE THEN ERROR 



; ERROR ("INCOMPATIBLE INTERPRETER") 



; MOVE (SRC. P=RDBUF.P DST.P A=SYSBANK CNT . IN) 



OPEN (PATHNAME : =D . PATH 
REFNUM=OPEN . REF 
SYSBUF.P:=80:LDREND-2000 ) 
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003438 




BPL 


LDR080 




003439 










003440 




BRK 






003441 




DFB 


OPEN 




003442 




DW 


OPEN . PARMS 




003443 




BEQ 


LDR090 




003444 




LDX 


#ERR4X 


; ERROR ("DRIVER FILE NOT FOUND") 


003445 




LDY 


#ERR4L 




003446 




JSR 


ERROR 




003447 


LDR090 


LDA 


OPEN . REF 




003448 




STA 


READ . REF 




003449 




STA 


CLOSE. REF 




003450 










003451 


* READ 


IN ENTIRE DRIVER 


FILE INTO BANK 




003452 










003453 




BRK 




; READ ( REFNUM=READ . REF 


003454 




DFB 


READ 


RDBUF.P:=80:FILE 


003455 




DW 


READ . PARMS 


BYTES=$FFFF-FILE+1 


003456 








BYTESRD=D . BYTESRD ) 


003457 




BEQ 


LDR100 




003458 




LDX 


#ERR0X 


; ERROR ("I/O ERROR") 


003459 




LDY 


#ERR0L 




003460 




JSR 


ERROR 




003461 










003462 


* CLOSE 


THE DRIVER FILE 


AND CHECK LABEL 




003463 










003464 


LDR100 


BRK 




; CLOSE (REFNUM=CLOSE .REF) 


003465 




DFB 


CLOSE 




003466 




DW 


CLOSE . PARMS 




003467 




LDY 


#$7 


; CHECK LABEL 


003468 


LDR101 


LDA 


(RDBUF.P) , Y 




003469 




CMP 


D . LABEL, Y 




003470 




BNE 


LDR102 




003471 




DEY 






003472 




BPL 


LDR101 




003473 




BMI 


LDR103 




003474 


LDR102 


LDX 


#ERR5X 


; ERROR ("INVALID DRIVER FILE") 


003475 




LDY 


#ERR5L 




003476 




JSR 


ERROR 




003477 










003478 


* MOVE 


CHARACTER SET TABLE 




003479 


* 








003480 


LDR103 


LDA 


#>D.CHRSET 


; MOVE (SRC. P=D.CHRSET DST.P=$C00 


003481 




STA 


SRC.P 




003482 




LDA 


#<D.CHRSET 




003483 




STA 


SRC.P+1 




003484 




LDA 


#>$C00 




003485 




STA 


DST.P 




003486 




LDA 


#<$C00 




003487 




STA 


DST.P+1 





+ + 

! SEE FIGURE 3. ! 
+ + 
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003488 






LDA 




#>$400 


003489 






STA 




CNT 


003490 






LDA 




#<$400 


003491 






STA 




CNT+1 


003492 






LDA 




#0 


003493 






JSR 




MOVE 


003494 












003495 


* 


MOVE KEYBOARD 


TABLE 




003496 












003497 






LDA 




#>D . KYBD 


003498 






STA 




SRC.P 


003499 






LDA 




#<D . KYBD 


003500 






STA 




SRC.P+1 


003501 






LDA 




#>$1700 


003502 






STA 




DST.P 


003503 






LDA 




#<$1700 


003504 






STA 




DST.P+1 


003505 






LDA 




#>$100 


003506 






STA 




CNT 


003507 






LDA 




#<$100 


003508 






STA 




CNT+1 


003509 






LDA 




#0 


003510 






JSR 




MOVE 


003511 












003512 




RE-INITIALIZE 


SDT 


TABLE 




003513 


* 










003514 






LDY 




#>D. DRIVES 


003515 






LDA 




(RDBUF.P) , 


003516 






JSR 




LINK. INIT 


003517 


* 










003518 






LDA 




#0 


003519 






STA 




CXPAGE+DST 


003520 






STA 




DST.P 


003521 






LDA 




I . BASE . P+l 


003522 






STA 




DST.P+1 


003523 






CMP 




#$A0 


003524 






BCC 




LDR105 


003525 






LDA 




#$A0 


003526 






STA 




DST.P+1 


003527 


LDR105 


LDA 




SYSBANK 


003528 






STA 




DSTBANK 


003529 






JSR 




REVERSE 


003530 












003531 




RELOCATE AND MOVE 


DRIVERS 


003532 












003533 


NEXTDRIVER 


JSR 




DADVANCE 


003534 






BCS 




LDR14 


003535 






JSR 




FLAGS 


003536 






BVS 




NEXTDRIVER 


003537 






JSR 




GETMEM 



; MOVE (SRC. P=D. KYBD DST.P=$1700 A=0 CNT=$100.IN) 



; LINK. INIT (A=D. DRIVES DIB1 . . 4 . IN, SDT . TBL BLKDLST . IO) 

; DST.P:=0:I.BASE.P/256*256 

; IF DST.P>=$A000 THEN DST.P :=$A000 

; DSTBANK :=SYSBANK 

; REVERSE (D.HDR. CNT. IN, WORK. P. OUT) 

; "NO DRIVERS LEFT" : =DADVANCE (WORK. P . IO SRC.P CNT REL.P.OUT) 

; "INACTIVE" : =FLAGS (SRC.P . IN, PG. ALIGN FIRST. ADIB. OUT) 

; GETMEM(PG. ALIGN CNT. IN, DST.P DSTBANK DSEGLIST.IO, PREVBANK . OUT) 
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003538 
003539 
003540 
003541 
003542 
003543 
003544 
003545 
003546 
003547 
003548 
003549 
003550 
003551 
003552 
003553 
003554 
003555 
003556 
003557 
003558 
003559 
003560 
003561 
003562 
003563 
003564 
003565 
003566 
003567 
003568 
003569 
003570 
003571 
003572 
003573 
003574 
003575 
003576 
003577 
003578 
003579 
003580 
003581 
003582 
003583 
003584 
003585 
003586 
003587 



LDR110 



LDR12 



LDR130 



JSR 

LDA 
BMI 
LDA 
AND 
STA 
LDA 
BPL 
INC 
AND 
CLC 
ADC 
STA 
LDA 
CMP 
LDA 
SBC 
LDA 
SBC 
BCS 
LDX 
LDY 
JSR 



LDA 
JSR 
JSR 
JMP 
REP 

SETUP USER ENVIRONMENT 
REP 



RELOC 

DSTBANK 
LDR120 

CXPAGE+SRC.P+1 
#$7F 

TEMP . BANK 
SRC.P+1 
LDR110 
TEMP . BANK 
#$7F 

#<$2000 

TEMP . ADRH 

DST.P 

SRC.P 

DST.P+1 

TEMP. ADRH 

DSTBANK 

TEMP . BANK 

LDR130 

#ERR6X 

#ERR6L 

ERROR 

DSTBANK 

MOVE 

LINK 

NEXTDRIVER 
100 

100 



RELOC (SRC.P REL.P DST.P. IN) 

IF DSTBANK < OR DST.P < SRC.P THEN ERROR 
(CONVERT SRC.P TO BANK SWITCHED ADDRESS) 



(NOW COMPARE) 



ERROR ("DRIVER FILE TOO LARGE") 
; MOVE(SRC.P DST.P A=DSTBANK CNT.IN) 

; LINK(DST.P DSTBANK PREVBANK FIRST .ADIB . IN, SDT . TBL BLKDLST . IO) 



* RE-INITIALIZE KERNEL/DRIVERS, ALLOCATE SYSTEM SEGMENTS 



LDR140 



JSR 
JSR 
JSR 



INIT.KRNL 
ALLOC . SEG 
ALLOC . DSEG 



SET PREFIX TO THE BOOT VOLUME 



LDA 
STA 
BRK 
DFB 
DW 



#0 

SCRNMODE 

SETPREFIX 
PREFX . FARMS 



INIT.KRNL () 

ALLOC. SEG (K. BASE I . BASE . P SYSBANK . IN) 
ALLOC . DSEG (DSEGLIST . IN) 



TURN VIDEO OFF - PREVENTS CHAR "GROWTH" DURING DOWNLOAD 
SET. PREFIX (PREFIXPATH=" . Dl " ) 



* LAUNCH CHARACTER SET DOWNLOAD (CONSOLE) AND CLEAR SCREEN 

CLI ; BEGIN CHARACTER SET DOWNLOAD (CONSOLE) 
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003588 
003589 
003590 
003591 
003592 
003593 
003594 
003595 
003596 
003597 
003598 
003599 
003600 
003601 
003602 
003603 
003604 
003605 
003606 
003607 
003608 
003609 
003610 
003611 
003612 
003613 
003614 
003615 
003616 
003617 
003618 
003619 
003620 
003621 
003622 
003623 
003624 
003625 
003626 
003627 
003628 



CLEARO 
CLEAR1 



WAIT 



LDA 
STA 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
LDX 
LDY 
STA 
STA 
DEY 
BPL 
INC 
INC 
DEX 
BNE 

INC 
BNE 
INX 
BNE 

LDA 
STA 
RTS 
REP 

CHN 



#0 

CXPAGE+SRC.P+1 

CXPAGE+DST.P+1 

#$04 

SRC.P+1 

DST.P+1 

#$00 

SRC.P 

#$80 

DST.P 

#$A0 

#8 

#$77 

(SRC.P) , Y 
(DST.P) , Y 

CLEAR1 

SRC.P+1 

DST.P+1 

CLEARO 

SRC.P 
WAIT 

WAIT 

#$80 

SCRNMODE 
100 

SOSLDR.E.SRC 



; CLEAR TEXT SCREENS 



; NEXT PAGE 
; NEXT PAGE 



; WAIT FOR DOWNLOAD TO COMPLETE 



; TURN VIDEO ON 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR.D.SRC 

************************************************************************* 
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003629 
003630 
003631 
003632 
003633 
003634 
003635 
003636 
003637 
003638 
003639 
003640 
003641 
003642 
003643 
003644 
003645 
003646 
003647 
003648 
003649 
003650 
003651 
003652 
003653 
003654 
003655 
003656 
003657 
003658 
003659 
003660 
003661 
003662 
003663 
003664 
003665 
003666 
003667 
003668 
003669 
003670 
003671 
003672 
003673 
003674 
003675 
003676 
003677 



DOCUMENT : SOS1 . 3 . lof 5 . ONE : SOS . SOSLDR . E . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR. E. SRC 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



PAGE 
REP 



100 



* SET. DRIVES ( IN: A=# DRIVES 

* IN: DIB1..4 ) 

* (INITIALIZES DIB LINKS IN KERNEL'S FLOPPY DRIVER) 



SET. DRIVES 



STDR010 



STDR020 



STDR030 



REP 

EQU 
TAY 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 

LDA 
CPY 
BCC 
BEQ 
CPY 
BCC 
BCS 

STA 
STA 
RTS 

STA 
STA 
RTS 

STA 



100 



#>DIB2 

DIB1 

#<DIB2 

DIB1+1 

#>DIB3 

DIB2 

#<DIB3 

DIB2+1 

#>DIB4 

DIB3 

#<DIB4 

DIB3+1 

#0 
#2 

STDR010 
STDR020 
#4 

STDR030 
STDR040 

DIB1 
DIB1+1 



DIB2 
DIB2+1 



DIB3 



SAVE # OF DRIVES 
DIB1 :=ADR(DIB2) 



DIB2 :=ADR(DIB3) 



DIB3 :=ADR(DIB4) 



CASE (Y=# OF DRIVES) 



1: DIB1:=0 



DIB2 :=0 



DIB3 :=0 
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003678 




STA 


DIB3+1 






003679 




RTS 








003680 


* 










003681 


STDR040 


STA 


DIB4 




4: DIB4:=0 


003682 




STA 


DIB4+1 






003683 




RTS 






RETURN 


003684 




PAGE 








003685 




REP 


100 






003686 












003687 


* INIT.KRNL () 










003688 












003689 


* (CALLS KERNEL 


INITIALIZATION MODULES) 






003690 




REP 


100 






003691 












003692 


INIT.KRNL 


EQU 








003693 




LDA 


E.REG 




SWITCH IN I/O BANK AND SELECT PRIMARY STACK 


003694 




ORA 


#$44 




E:=( 0.1.1.X:0. 1.0.0 ) 


003695 




STA 


E.REG 




( l.I.S.R:W.P.R.R ) 


003696 












003697 




LDA 


#<SZPAGE 




SWITCH TO SOS ZPAGE 


003698 




STA 


Z.REG 






003699 


* 










003700 




JSR 


INT.INIT 




CALL KERNEL INITIALIZATION ROUTINES 


003701 




JSR 


EVQ. INIT 






003702 




JSR 


BFM. INIT2 






003703 




BCS 


INITK. ERR 






003704 




JSR 


DMGR. INIT 






003705 




JSR 


CFMGR. INIT 






003706 




JSR 


MMGR. INIT 






003707 




JSR 


BMGR. INIT 






003708 




JSR 


BFM. INIT 






003709 




JSR 


CLK. INIT 






003710 












003711 




LDA 


E.REG 




SWITCH OUT I/O BANK AND RETURN TO ALTERNATE 


003712 




AND 


#$BB 




E:=( 0.0.1.X:0. 0.0.0 ) 


003713 




STA 


E.REG 




( l.I.S.R:W.P.R.R ) 


003714 












003715 




LDA 


#<CZPAGE 




SWITCH BACK TO USER ZPAGE 


003716 




STA 


Z.REG 






003717 












003718 




RTS 






RETURN 


003719 


* 










003720 












003721 


INITK . ERR 


LDX 


#ERR0X 




ERROR ("I/O ERROR") 


003722 




LDY 


#ERR0L 






003723 




JMP 


ERROR 






003724 




PAGE 








003725 




REP 


100 






003726 












003727 


* ADVANCE ( I/O 


WORK.P 
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003728 
003729 
003730 
003731 
003732 
003733 
003734 
003735 
003736 
003737 
003738 
003739 
003740 
003741 
003742 
003743 
003744 
003745 
003746 
003747 
003748 
003749 
003750 
003751 
003752 
003753 
003754 
003755 
003756 
003757 
003758 
003759 
003760 
003761 
003762 
003763 
003764 
003765 
003766 
003767 
003768 
003769 
003770 
003771 
003772 
003773 
003774 
003775 
003776 
003777 



OUT : SRC . P 
OUT: DST.P 
OUT : CNT ) 
(ADVANCES WORK.P TO NEXT INTERP . KERNEL MODULE. 



INITS SRC.P, DST.P, CNT FOR MOVE) 



ADVANCE 



REP 

EQU 

CLC 

LDY 

LDA 

ADC 

TAX 

INY 

LDA 

ADC 

PHA 

TXA 

ADC 

STA 

PLA 

ADC 

STA 

CLC 

LDA 

ADC 

STA 

LDA 

ADC 

STA 

LDA 

STA 

LDY 

STY 

LDA 

STA 

INY 

LDA 

STA 

INY 

LDA 

STA 

INY 

LDA 

STA 

RTS 

PAGE 

REP 



100 



#2 

WORK.P 
(WORK.P) , Y 



WORK.P+1 
(WORK.P) , Y 



#4 

WORK.P 
#0 

WORK.P+1 

WORK.P 

#>$0004 

SRC.P 

WORK.P+1 

#<$0004 

SRC.P+1 

CXPAGE+WORK.P+1 

CXPAGE+SRC.P+1 

#0 

CXPAGE+DST.P+1 
(WORK.P) , Y 
DST.P 

(WORK.P) , Y 
DST.P+1 

(WORK.P) , Y 
CNT 

(WORK.P) , Y 
CNT+1 



100 



; Y:=0 

; WORK. P:=WORK.P+ (WORK. P) ,Y + 4 



; SRC. P:=X: WORK. P+4 



; DST.P:=0: (WORK.P) 



; Y:=2 

; CNT:= (WORK.P) , Y 



; RETURN 



REVERSE 



( IN: 
IN: 



D.HDR.CNT 

SDT.SIZE = CONSTANT 
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003778 




I/O: DRIVER 


FILE, 


003779 




OUT : WORK . P 


) ) 


003780 


* 






003781 




LOCAL: REV. SAVE, REV.TEM 


003782 


* (REVERSES 


TITLE/CODE/RELOC COUNTS TO 


003783 




REP 


100 


003784 


REVERSE 


EQU 




003785 




LDA 


#>D . HDR . CNT 


003786 




STA 


WORK.P 


003787 




LDA 


#<D . HDR . CNT 


003788 




STA 


WORK.P+1 


003789 




LDA 


#$80 


003790 




STA 


CXPAGE+WORK 


003791 




CLC 




003792 




LDY 


#0 


003793 




LDA 


WORK.P 


003794 




ADC 


(WORK.P) , Y 


003795 




TAX 




003796 




INY 




003797 




LDA 


WORK.P+1 


003798 




ADC 


(WORK.P) , Y 


003799 




PHA 




003800 




TXA 




003801 




ADC 


#2 


003802 




STA 


WORK.P 


003803 




PLA 




003804 




ADC 


#0 


003805 




STA 


WORK.P+1 


003806 




LDA 


(WORK.P) , Y 


003807 




DEY 




003808 




AND 


(WORK.P) , Y 


003809 




CMP 


#$FF 


003810 




BNE 


REVO 10 


003811 




LDX 


#ERR10X 


003812 




LDY 


#ERR10L 


003813 




JSR 


ERROR 


003814 


REVO 10 


LDA 


#$FF 


003815 




STA 


REV. SAVE 


003816 




STA 


REV.SAVE+1 


003817 








003818 


REVO 20 


LDA 


REV. SAVE 


003819 




PHA 




003820 




LDA 


REV.SAVE+1 


003821 




PHA 




003822 




LDY 


#0 


003823 




LDA 


(WORK.P) , Y 


003824 




STA 


REV. SAVE 


003825 




INY 




003826 




LDA 


(WORK.P) , Y 


003827 




STA 


REV.SAVE+1 



WORK.P :=80 :D. HDR. CNT 



; WORK.P :=WORK.P+ (WORK.P) +2 



IF (WORK.P) =$FFFF 
THEN 

ERROR ("EMPTY DRIVER FILE") 



;R1: STACK :=REV. SAVE 



REV . SAVE : = (WORK . P ) 
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003828 




PLA 






(WORK.P) :=STACK 


003829 




STA 


(WORK.P) , Y 






003830 




DEY 








003831 




PLA 








003832 




STA 


(WORK.P) , Y 






003833 




LDA 


REV. SAVE 




IF REV. SAVE = $FFFF THEN EXIT 


003834 




AND 


REV.SAVE+1 






003835 




CMP 


#$FF 






003836 




BEQ 


REV. EXIT 






003837 


REVO 30 


BIT 


REV.SAVE+1 




IF REV. SAVE >= $8000 THEN ERROR 


003838 




BMI 


REVO 4 






003839 




CLC 






WORK . P : =WORK . P+REV . SAVE+2 


003840 




LDA 


WORK.P 






003841 




ADC 


REV. SAVE 






003842 




TAX 








003843 




LDA 


WORK.P+1 






003844 




ADC 


REV.SAVE+1 






003845 




PHA 








003846 




BCS 


REVO 4 






003847 




TXA 








003848 




ADC 


#2 






003849 




STA 


WORK.P 






003850 




PLA 








003851 




ADC 


#0 






003852 




STA 


WORK.P+1 






003853 




BCC 


REVO 20 




IF C=FALSE THEN Rl 


003854 


REVO 40 


LDX 


#ERR5X 




ELSE ERROR (" INVALID DRIVER FILE") 


003855 




LDY 


#ERR5L 






003856 




JSR 


ERROR 






003857 


* 










003858 


REV. EXIT 


RTS 






RETURN 


003859 




PAGE 








003860 




REP 


100 






003861 












003862 


* DADVANCE 


( I/O: WORK.P 








003863 




OUT: C="NO DRIVERS LEFT" 






003864 


* 


OUT : SRC . P 








003865 




OUT : CNT 








003866 




OUT: REL.P ) 








003867 


* (ADVANCES 


WORK.P TO NEXT 


DRIVER MODULE. 


INITS 


SRC.P, CNT, REL.P FOR RELOCATION AND MOVE) 


003868 




REP 


100 






003869 


DADVANCE 


EQU 


* 






003870 




LDY 


#0 




IF (WORK.P) =$fc'FFF THEN EXIT "NO DRIVERS LEFT IN FILE" 


003871 




LDA 


(WORK.P) , Y 






003872 




INY 








003873 




AND 


(WORK . P ) , Y 






003874 




CMP 


#$FF 






003875 




BNE 


DADV010 






003876 




SEC 




r 


C:="NO DRIVERS LEFT" 


003877 




RTS 




r 


RETURN 
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003878 












003879 












003880 


DADV010 


LDA 


WORK . P 


; REL.P:=X: WORK.P 


003881 






STA 


REL.P 




003882 






LDA 


WORK.P+1 




003883 






STA 


REL.P+1 




003884 






LDA 


CXPAGE+WORK.P+1 




003885 






STA 


CXPAGE+REL.P+1 




003886 












003887 






JSR 


DADD 


; ADVANCE TO CODE COUNT FIELD 


003888 












003889 






LDY 


#0 


; CNT:= (WORK.P) 


003890 






LDA 


(WORK.P) , Y 




003891 






STA 


CNT 




003892 






INY 






003893 






LDA 


(WORK.P) , Y 




003894 






STA 


CNT+1 




003895 


* 










003896 






JSR 


DADD 


; ADVANCE TO TITLE CNT FIELD 


003897 


* 










003898 






CLC 




; SRC. P:=X: WORK. P+2 


003899 






LDA 


WORK.P 




003900 






ADC 


#2 




003901 






STA 


SRC.P 




003902 






LDA 


WORK.P+1 




003903 






ADC 


#0 




003904 






STA 


SRC.P+1 




003905 






LDA 


CXPAGE+WORK.P+1 




003906 






STA 


CXPAGE+SRC.P+1 




003907 


* 










003908 






JSR 


DADD 


; ADVANCE TO RELOC FIELD OF NEXT 


003909 






CLC 




; C:="DRIVERS LEFT" 


003910 






RTS 




; RETURN 


003911 






PAGE 






003912 






REP 


100 




003913 












003914 


* 


DADD ( I/O 


: WORK.P ) 






003915 












003916 




(ADVANCES 


rfORK.P TO NEXT 


FIELD IN DRIVER MODULE) 


003917 






REP 


100 




003918 


DADD 


EQU 


* 




003919 






SEC 




; WORK.P :=WORK.P- (WORK.P) -2 


003920 






LDY 


#0 




003921 






LDA 


WORK.P 




003922 






SBC 


(WORK.P) , Y 




003923 






TAX 






003924 






INY 






003925 






LDA 


WORK.P+1 




003926 






SBC 


(WORK.P) , Y 




003927 






PHA 
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003928 






TXA 








003929 






SBC 


#2 






003930 






STA 


WORK.P 






003931 






PLA 








003932 






SBC 


#0 






003933 






STA 


WORK.P+1 






003934 






RTS 






RETURN 


003935 






PAGE 








003936 






REP 


100 






003937 














003938 


* FLAGS 


( IN: 


SRC.P 








003939 




OUT: 


PG. ALIGN 








003940 




OUT: 


FIRST. ADIB 








003941 


* 


OUT: 


OV="ALL DIBS INACTIVE" ) 






003942 














003943 




LOCAL 


PREV.ADIB.P, DIB.P 






003944 


* (PROCESSES "INACTIVE" & 


'PAGE ALIGN" FLAGS IN 


DRIVER MODULE'S DIBS" 


003945 






REP 


100 






003946 


FLAGS 




EQU 


* 






003947 






SEC 






C="FIRST DIB" 


003948 


FLAG010 




JSR 


NEXT. DIB 




NEXT. DIB (SRC.P. IN, DIB.P PG. ALIGN C OV.OUT) 


003949 






BVC 


FLAG015 




IF OV <> "INACTIVE" THEN ACTIVE DIB FOUND 


003950 






BCC 


FLAG010 




IF C <> "LAST DIB" THEN CHECK NEXT DIB 


003951 






RTS 






RETURN (OV:="ALL DIBS INACTIVE") 


003952 














003953 


FLAG015 




PHP 






PUSH STATUS 


003954 






SEC 




r 


FIRST. ADIB :=DIB.P-SRC.P 


003955 






LDA 


DIB.P 






003956 






SBC 


SRC.P 






003957 






STA 


FIRST. ADIB 






003958 






LDA 


DIB.P+1 






003959 






SBC 


SRC.P+1 






003960 






STA 


FIRST. ADIB+1 






003961 






LDA 


DIB.P 


r 


PREV.ADIB.P :=X: DIB.P 


003962 






STA 


PREV.ADIB.P 






003963 






LDA 


DIB.P+1 






003964 






STA 


PREV.ADIB.P+1 






003965 






LDA 


CXPAGE+DIB.P+1 






003966 






STA 


CXPAGE+PREV.ADIB.P+1 






003967 






PLP 




r 


PULL STATUS 


003968 






BCS 


FLAG100 


r 


IF C="LAST DIB" THEN EXIT 


003969 














003970 


FLAG020 




JSR 


NEXT. DIB 




NEXT. DIB (SRC.P. IN, DIB.P PG. ALIGN C OV.OUT) 


003971 






PHP 






PUSH STATUS 


003972 






LDY 


#0 




IF OV=" INACTIVE DIB" 


003973 






BVC 


FLAG025 






003974 






SEC 




r 


THEN 


003975 






LDA 


PREV.ADIB.P 


r 


(PREV.ADIB.P) :=PREV.ADIB.P-SRC.P 


003976 






SBC 


SRC.P 






003977 






STA 


(PREV.ADIB.P) , Y 
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003978 




INY 










003979 




LDA 




PREV.ADIB.P+1 






003980 




SBC 




SRC.P+1 






003981 




STA 




(PREV.ADIB.P) , Y 






003982 




JMP 




FLAG050 






003983 


* 












003984 


FLAG025 


SEC 








ELSE 


003985 




LDA 




DIB.P 




(PREV.ADIB.P) :=DIB.P-SRC.P 


003986 




SBC 




SRC.P 






003987 




STA 




(PREV.ADIB.P) , Y 






003988 




INY 










003989 




LDA 




DIB.P+1 






003990 




TAX 










003991 




SBC 




SRC.P+1 






003992 




STA 




(PREV.ADIB.P) , Y 






003993 




STX 




PREV.ADIB.P+1 




PREV.ADIB.P:=DIB.P 


003994 




LDA 




DIB.P 






003995 




STA 




PREV.ADIB.P 






003996 


FLAG050 


PLP 








PULL STATUS 


003997 




BCC 




FLAG020 




IF C <> "LAST DIB" THEN PROCESS NEXT 


003998 














003999 


FLAG100 


CLV 








OV:="ACTIVE DIBS" 


004000 




RTS 








RETURN 


004001 




PAGE 










004002 




REP 




100 






004003 














004004 


* NEXT. DIB 


( IN: C=" 


FIRST DIB" 






004005 




IN : SRC 


.P 








004006 




OUT: DIB 


.P 








004007 


* 


OUT: PG. 


ALIGN 






004008 


★ 


OUT: C=" 


LAST 


DIB" 






004009 


* 


OUT : OV= 


"INACTIVE DIB" ) 






004010 














004011 




LOCAL: DIB. FLAGS, DIB.DCB = CONSTANT 


004012 


* (ADVANCES 


TO NEXT DIB IN 


DRIVER MODULE) 






004013 




REP 




100 






004014 


NEXT. DIB 


EQU 




* 






004015 




LDY 




#0 






004016 




BCC 




NXTD010 




IF C = "FIRST DIB" 


004017 




STY 




PG. ALIGN 




THEN 


004018 




STY 




PG.ALIGN+1 




PG.ALIGN:=0 


004019 




LDA 




SRC.P 




DIB. P:=X: SRC.P 


004020 




STA 




DIB.P 






004021 




LDA 




SRC.P+1 






004022 




STA 




DIB.P+1 






004023 




LDA 




CXPAGE+SRC.P+1 






004024 




STA 




CXPAGE+DIB.P+1 






004025 




JMP 




NXTD020 






004026 


NXTD010 


LDA 




SRC.P 


r 


ELSE 


004027 




ADC 




(DIB.P) , Y 


r 


DIB. P:=SRC.P+ (DIB.P) 
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004028 
004029 
004030 
004031 
004032 
004033 
004034 
004035 
004036 
004037 
004038 
004039 
004040 
004041 
004042 
004043 
004044 
004045 
004046 
004047 
004048 
004049 
004050 
004051 
004052 
004053 
004054 
004055 
004056 
004057 
004058 
004059 
004060 
004061 
004062 
004063 
004064 
004065 
004066 
004067 
004068 
004069 
004070 
004071 
004072 
004073 
004074 
004075 



NXTD020 



NXTD030 



NXTD040 



NXTD998 
NXTD999 



TAX 
INY 
LDA 
ADC 
STA 
STX 

LDY 
LDA 
BMI 
BIT 
BVS 

AND 
BEQ 
CLC 
LDA 
TAY 
DEY 
DEY 
ADC 
STA 
INY 
LDA 
ADC 
STA 
CLV 

LDY 
LDA 
INY 
ORA 
BNE 
SEC 
BCS 
CLC 
RTS 
REP 

CHN 

RTS 



SRC.P+1 
(DIB.P) , Y 
DIB.P+1 
DIB.P 

#D IB. FLAGS 
(DIB.P) , Y 
NXTD030 
NXTD999 
NXTD040 

#$40 
NXTD040 

#DIB.DCB+2 



(SRC.P) , Y 
PG. ALIGN 

#0 

(SRC.P) , Y 
PG.ALIGN+1 



#0 

(DIB.P) , Y 

(DIB.P) , Y 
NXTD998 

NXTD999 



100 



SOSLDR.F.SRC 



; IF (DIB.P) , DIB. FLAGS. BIT7 = "INACTIVE" 



ELSE 



THEN 

OV: = " INACTIVE" 

IF (DIB.P) , DIB. FLAGS. BIT6 = "PAGE ALIGN" 
THEN 

PAGE. ALIGN :=DIB.DCB+2+ (SRC.P) ,DIB.DCB 



OV:="ACTIVE" 
; IF (DIB.P) = 

THEN C:="LAST DIB" 

ELSE C:=NOT "LAST DIB" 
; RETURN 

; RETURN 



************************************************************************* 

* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR.E.SRC 
********************************************** 
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004076 
004077 
004078 
004079 
004080 
004081 
004082 
004083 
004084 
004085 
004086 
004087 
004088 
004089 
004090 
004091 
004092 
004093 
004094 
004095 
004096 
004097 
004098 
004099 
004100 
004101 
004102 
004103 
004104 
004105 
004106 
004107 
004108 
004109 
004110 
004111 
004112 
004113 
004114 
004115 
004116 
004117 
004118 
004119 
004120 
004121 
004122 
004123 
004124 



DOCUMENT : SOS1 . 3 . lof 5 . ONE : SOS . SOSLDR . F . SRC . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR. F. SRC 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



* GETMEM ( IN: 

* IN: 

* I/O 

* I/O 

* I/O 

* OUT 



PAGE 
REP 

PG. ALIGN 

CNT 

DST.P 

DSTBANK 

DSEGLIST 

PREVBANK ) 



100 



LOCAL : PREVDST 

(COMPUTES # OF PAGES TO ADD TO DRIVER SEGMENT AND WHETHER TO BEGIN A NEW SEGMENT) 



GETMEM 



GETM010 



REP 
EQU 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 

LDA 
CMP 
BCC 
SEC 
LDA 
SBC 
CLC 
JSR 
JMP 

DEC 
LDA 
STA 
LDA 
STA 
JSR 
SEC 
LDA 



100 

DSTBANK 

PREVBANK 

DST.P 

PREVDST 

DST.P+1 

PREVDST+1 

NEWDST 

DST.P+1 

#$20 
GETM010 

PREVDST+1 
DST.P+1 

BUILD. DSEG 
GETM.EXIT 

DSTBANK 

#>$A000 

PREVDST 

#<$A000 

PREVDST+1 

NEWDST 

PREVDST+1 



; PREVBANK :=DSTBANK 

; PREVDST : =DST . P 

; NEWDST (PG. ALIGN. IN, PREVDST. IN, CNT. IN, DST.P. OUT) 

; IF DST.P >= $2000 



THEN 

A=PAGES : =PREVDST-DST . P 



BUILD. DSEG (C="NEXT BANK" .IN, A=PAGES . IN, DSEGLIST. IO) 



ELSE 



DSTBANK : =DSTBANK-1 
PREVDST:=$A000 



NEWDST (PG. ALIGN. IN, PREVDST . IN, CNT. IN, DST.P. OUT) 
A="PAGES" :=PREVDST-DST.P 
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004125 






SBC 




DST.P+1 


004126 






SEC 






004127 






JSR 




BUILD. DSEG 


004128 


* 










004129 


GETM.EXIT 




RTS 






004130 






PAGE 






004131 






REP 




100 


004132 


* 










004133 


* NEWDST ( 


IN: 


PG. ALIGN 




004134 




IN: 


PREVDST 




004135 




IN: 


CNT 






004136 




I/O 


DST 


P 


) 


004137 


* (COMPUTES 


DESTINATION BASE ADDRESS, 


004138 






REP 




100 


004139 


NEWDST 




EQU 




* 


004140 






SEC 






004141 






LDA 




PREVDST 


004142 






SBC 




#>$2000 


004143 






TAX 






004144 






LDA 




PREVDST+1 


004145 






SBC 




#<$2000 


004146 






CPX 




CNT 


004147 






SBC 




CNT+1 


004148 






BCS 




NEWD010 


004149 






LDA 




#0 


004150 






STA 




DST.P 


004151 






STA 




DST.P+1 


004152 






BEQ 




NEWD . EXIT 


004153 


NEWD010 




SEC 






004154 






LDA 




PREVDST 


004155 






SBC 




CNT 


004156 






STA 




DST.P 


004157 






LDA 




PREVDST+1 


004158 






SBC 




CNT+1 


004159 






STA 




DST.P+1 


004160 






LDA 




PG. ALIGN 


004161 






ORA 




PG.ALIGN+1 


004162 






BEQ 




NEWD. EXIT 


004163 






SEC 






004164 






LDA 




#0 


004165 






SBC 




PG. ALIGN 


004166 






STA 




DST.P 


004167 






LDA 




DST.P+1 


004168 






SBC 




PG.ALIGN+1 


004169 






STA 




DST.P+1 


004170 


NEWD . EXIT 




RTS 






004171 






PAGE 






004172 






REP 




100 


004173 












004174 


* BUILD. DSEG ( 


IN: 


C= " NEXTBANK " 



Apple/// Computer I nformation 



BUILD. DSEG (C="NEXTBANK" . IN, A="PAGES " . IN, DSEGLIST.IO) 



RETURN 



ALIGNING ON PAGE BOUNDARY IF REQUESTED) 



IF (PREVDST-$2000) < CNT 



THEN 

DST.P: = 



ELSE 

DST. 



=PREVDST-CNT 



IF PG. ALIGN <> 
THEN 

DST.P := (DST.P/256*25 6) -PG. ALIGN 



RETURN 
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004175 


* IN: 


A="PAGES" 






004176 


* I/O: 


DSEGLIST ) 






004177 


* (COMPUTES # OF PAGES TO 


ADD TO DRIVER 


SEGMENT AND WHETHER TO BEGIN A NEW SEGMENT) 




004178 


REP 




100 






004179 


BUILD. DSEG EQU 










004180 


PHA 










004181 


BCS 




BLDS010 


; IF ( "NEXTBANK"=TRUE OR DSEGX=$FF) 




004182 


LDA 




DSEGX 


THEN 




004183 


BPL 




BLDS020 






004184 


BLDS010 INC 




DSEGX 


DSEGX :=DSEGX+1 




004185 


BLDS020 LDX 




DSEGX 






004186 


CLC 






; DSEGLIST (DSEGX) : =DSEGLIST (DSEGX) + 


"PAGES" 


004187 


PLA 










004188 


ADC 




DSEGLIST, X 






004189 


STA 




DSEGLIST, X 






004190 


RTS 






; RETURN 




004191 












004192 












004193 












004194 


DSEGX DFB 




$FF 


; DRIVER SEGMENT LIST TABLE 




004195 


DSEGLIST DFB 




$0 


; # PAGES FOR 1ST DRIVER SEGMENT 


(BANK N 


004196 


DFB 




$0 


2ND 


(BANK N 


004197 


DFB 




$0 


3RD 


(BANK N 


004198 


DFB 




$0 


4TH 


(BANK N 


004199 


PAGE 








004200 


REP 




100 






004201 












004202 


* RELOC ( IN: SRC 


P 








004203 


* IN : REL 


P 








004204 


* IN: DST 


P 








004205 


* OUT : RELOCATED 


DRIVER MODULE 


) 




004206 


* 










004207 


* LOCAL: REL. END, 


CODE . P 






004208 


* (RELOCATES DRIVER 


MODULE 


'S CODE FIELD 


USING RELOCATION FIELD) 




004209 


REP 




100 






004210 


RELOC EQU 










004211 


SEC 






; REL. END :=REL.P- (REL.P) 




004212 


LDY 




#0 






004213 


LDA 




REL.P 






004214 


SBC 




(REL . P) , Y 






004215 


STA 




REL . END 






004216 


INY 










004217 


LDA 




REL.P+1 






004218 


SBC 




(REL.P) , Y 






004219 


STA 




REL.END+1 






004220 


REL . LOOP SEC 






; REL.P :=REL.P-2 




004221 


LDA 




REL.P 






004222 


SBC 




#2 






004223 


STA 




REL.P 






004224 


LDA 




REL.P+1 
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004225 
004226 
004227 
004228 
004229 
004230 
004231 
004232 
004233 
004234 
004235 
004236 
004237 
004238 
004239 
004240 
004241 
004242 
004243 
004244 
004245 
004246 
004247 
004248 
004249 
004250 
004251 
004252 
004253 
004254 
004255 
004256 
004257 
004258 
004259 
004260 
004261 
004262 
004263 
004264 
004265 
004266 
004267 
004268 
004269 
004270 
004271 
004272 
004273 
004274 



REL . EXIT 



SBC 


#0 


STA 


REL.P+1 


LDA 


REL.P 


CMP 


REL . END 


LDA 


REL.P+1 


SBC 


REL.END+1 


BCC 


REL. EXIT 


LDY 


#0 


CLC 




LDA 


SRC.P 


ADC 


(REL.P) , Y 


STA 


CODE . P 


INY 




LDA 


SRC.P+1 


ADC 


(REL.P) , Y 


STA 


CODE.P+1 


LDA 


CXPAGE+SRC . 


STA 


CXPAGE+CODE 


LDY 


#0 


CLC 




LDA 


(CODE.P) , Y 


ADC 


DST.P 


STA 


(CODE.P) , Y 


INY 




LDA 


(CODE.P) , Y 


ADC 


DST.P+1 


STA 


(CODE.P) , Y 


JMP 


REL . LOOP 


RTS 




PAGE 




REP 


100 



; IF REL.P < REL. END THEN EXIT 



; CODE. P:=X:SRC.P+ (REL.P) 



; (CODE.P) := (CODE.P) +DST.P 



; GOTO REL. LOOP 
; RETURN 



* ALLOC. SEG ( IN: K . BASE 

* IN : I . BASE . P 

* IN: SYSBANK ) 

* I . BASE . P 

* D . BASE . PG 

* (ALLOCATES SEGMENTS FOR KERNEL, INTERPRETER AND SYSTEM WORK AREA) 



ALLOC . SEG 



REP 
EQU 
BRK 
DFB 
DW 

LDA 
STA 
STA 
LDA 
STA 



100 



REQSEG 
SEGMENT 

#$10 
SEGBASE 
SEGLIM 
#0 

SEGBASE+1 



; REQ . SEG (BASE= (F, ) , LIMIT= (F, ID) , SEGID=0, SEGNUM) 



; SET BASE /LIMIT BANKS 



; AND INIT BASE PAGE 
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004275 










004276 




LDX 


K.BASE+1 


; KERNEL SEGMENT, ID=1 


004277 




JSR 


RSEG 




004278 










004279 




LDX 


I . BASE . P+l 


; INTERPRETER SEGMENT, ID=2 


004280 




JSR 


RSEG 




004281 




RTS 






004282 




PAGE 






004283 




REP 


100 




004284 










004285 


* RSEG ( IN: 


X=BASE . PAGE 


OF SEGMENT ) 




004286 










004287 




REP 


100 




004288 


RSEG 


EQU 






004289 




INC 


SEGID 


; SEGID :=SEGID+1 


004290 




LDY 


SEGBASE+1 


; LIMIT. PAGE : =BASE . PAGE-1 


004291 




DEY 






004292 




STY 


SEGLIM+1 




004293 




STX 


SEGBASE+1 


; BASE. PAGE :=X 


004294 


* 








004295 




CPX 


#$A0 


; IF BASE>=$A0 OR LIMIT<$A0 THEN 


004296 




BCS 


RSEG010 


; THEN 


004297 




LDA 


SEGLIM+1 


REQUEST ONLY ONE SEGMENT 


004298 




CMP 


#$A0 




004299 




BCC 


RSEG010 




004300 


* 








004301 




TXA 




; ELSE 


004302 




PHA 




REQUEST TWO SEGMENTS 


004303 




LDX 


#$A0 




004304 




STX 


SEGBASE+1 




004305 


* 








004306 




BRK 




REQ . SEG (BASE, LIMIT, SEGID, SEGNUM) 


004307 




DFB 


REQSEG 




004308 




DW 


SEGMENT 




004309 










004310 




PLA 






004311 




STA 


SEGBASE+1 




004312 




LDA 


#$9F 




004313 




STA 


SEGLIM+1 




004314 




LDA 


SYSBANK 




004315 




STA 


SEGBASE 




004316 




STA 


SEGLIM 




004317 










004318 










004319 


RSEG010 


BRK 




; REQ. SEG (BASE, LIMIT, SEGID, SEGNUM) 


004320 




DFB 


REQSEG 




004321 




DW 


SEGMENT 




004322 


* 








004323 




RTS 




; RETURN 


004324 




PAGE 
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004325 
004326 
004327 
004328 
004329 
004330 
004331 
004332 
004333 
004334 
004335 
004336 
004337 
004338 
004339 
004340 
004341 
004342 
004343 
004344 
004345 
004346 
004347 
004348 
004349 
004350 
004351 
004352 
004353 
004354 
004355 
004356 
004357 
004358 
004359 
004360 
004361 
004362 
004363 
004364 
004365 
004366 
004367 
004368 
004369 
004370 
004371 
004372 
004373 
004374 



REP 

* ALLOC. DSEG ( IN: 

* (ALLOCATES SEGMENTS 

REP 

ALLOC . DSEG EQU 
INC 
BNE 
LDX 
LDY 
JSR 



ALDS010 
ALDS020 



ALDS . EXIT 



LDY 

INY 

CPY 

BCS 

LDA 

STA 

BRK 

DFB 

DW 

JMP 

RTS 

PAGE 

REP 



100 

DSEGLIST ) 

FOR DRIVER MODULES" 
100 

* 

DSEGX 
ALDS010 
#ERR5X 
#ERR5L 
ERROR 

#$FF 

DSEGX 
ALDS. EXIT 
DSEGLIST, Y 
SEGPGCNT 

FINDSEG 

SEGMENT1 

ALDS020 



DSEGX :=DSEGX+1 
IF DSEGX=0 

THEN ERROR (" INVALID DRIVER FILE") 



Y:=-l 

WHILE (Y:=Y+1) < DSEGX 
DO 

PAGECT : =DSEGLIST (Y) 

FINDSEG (SRCHMODE=0 . IN, SEGID=3 . IN 
PAGECT=DSEGLIST (Y) 
BASE. OUT, LIMIT. OUT) 



; RETURN 



100 



* ERROR (IN: X=MESSAGE INDEX 

* IN: Y=MESSAGE LENGTH 

* (DISPLAYS ERROR MESSAGE, SOUNDS BELL AND LOOPS UNTIL CONTROL/RESET PRESSED) 

REP 100 
ERROR EQU * 

STY ETEMP 



; CENTER MSG ( Y : =LEN/2+LEN) 



PRNT010 



SEC 
LDA 
SBC 
LSR 
CLC 
ADC 
TAY 

LDA 
STA 
DEX 
DEY 
DEC 
BNE 

LDA 



#40 
ETEMP 

A 

ETEMP 



ERR, X 

EMSGADR-1, Y 



ETEMP 
PRNT010 



; MOVE MESSAGE TO SCREEN MEMORY 



#$73 



■■( 0.1.1.1:0.0.1.1 ) 
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004375 




STA 


E.REG ; ( l.I.S.R:W.P.R.S ) 


004376 




LDA 


$C040 ; SOUND BELL 


004377 




JMP 


* ; LOOP UNTIL REBOOT (CTRL/RESET) 


004378 




PAGE 




004379 




REP 


100 


004380 








004381 


* ERROR MESSAGES 




004382 








004383 




REP 


100 


004384 


EMSGADR 


EQU 


$7A8 


004385 








004386 


ERR 


EQU 




004387 


ERRO 


ASC 


"I/O ERROR" 


004388 


ERR0L 


EQU 


*-ERR0 


004389 


ERR0X 


EQU 


*-ERR-l 


004390 


ERR1 


ASC 


"INTERPRETER FILE NOT FOUND" 


004391 


ERR1L 


EQU 


*-ERRl 


004392 


ERR1X 


EQU 


*-ERR-l 


004393 


ERR2 


ASC 


"INVALID INTERPRETER FILE" 


004394 


ERR2L 


EQU 


*-ERR2 


004395 


ERR2X 


EQU 


*-ERR-l 


004396 


ERR3 


ASC 


"INCOMPATIBLE INTERPRETER" 


004397 


ERR3L 


EQU 


*-ERR3 


004398 


ERR3X 


EQU 


*-ERR-l 


004399 


ERR4 


ASC 


"DRIVER FILE NOT FOUND" 


004400 


ERR4L 


EQU 


*-ERR4 


004401 


ERR4X 


EQU 


*-ERR-l 


004402 


ERR5 


ASC 


"INVALID DRIVER FILE" 


004403 


ERR5L 


EQU 


*-ERR5 


004404 


ERR5X 


EQU 


*-ERR-l 


004405 


ERR6 


ASC 


"DRIVER FILE TOO LARGE" 


004406 


ERR6L 


EQU 


*-ERR6 


004407 


ERR6X 


EQU 


*-ERR-l 


004408 


ERR7 


ASC 


"ROM ERROR: PLEASE NOTIFY YOUR DEALER" 


004409 


ERR7L 


EQU 


*-ERR7 


004410 


ERR7X 


EQU 


*-ERR-l 


004411 


ERR8 


ASC 


"TOO MANY DEVICES" 


004412 


ERR8L 


EQU 


*-ERR8 


004413 


ERR8X 


EQU 


*-ERR-l 


004414 


ERR9 


ASC 


"TOO MANY BLOCK DEVICES" 


004415 


ERR9L 


EQU 


*-ERR9 


004416 


ERR9X 


EQU 


*-ERR-l 


004417 


ERR10 


ASC 


"EMPTY DRIVER FILE" 


004418 


ERR10L 


EQU 


*-ERR10 


004419 


ERR10X 


EQU 


*-ERR-l 


004420 




PAGE 




004421 




REP 


100 


004422 








004423 


* WELCOME () 






004424 
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004425 


* (PRINTS 


WELCOME MESSAGE - "APPLE ///", 


004426 




REP 


100 


004427 


WELCOME 


EQU 


* 


004428 








004429 


* PRINT 


"APPLE III" 


MESSAGE 


004430 








004431 




LDY 


#AMSGL 


004432 


W7AM010 


LDA 


AMSG-1, Y 


004433 




STA 


AMSGADR-1, Y 


004434 




DEY 




004435 




BNE 


WAM010 


004436 








004437 


* PRINT 


SOS VERSION 


MESSAGE 


004438 








004439 




CLC 




004440 




LDA 


#40 


004441 




ADC 


#>SOSVERL 


004442 




LSR 


A 


004443 




TAX 




004444 




LDY 


#>SOSVERL 


004445 


WSM010 


LDA 


SOSVER-1 , Y 


004446 




ORA 


#$80 


004447 




STA 


SMSGADR-1,X 


004448 




DEX 




004449 




DEY 




004450 




BNE 


WSM010 


004451 








004452 


* PRINT 


DATE AND TIME MESSAGE 


004453 


* 






004454 




BRK 




004455 




DFB 


GETTIME 


004456 




DW 


DTPARMS 


004457 








004458 




LDA 


DATETIME+8 


004459 




AND 


#$0F 


004460 




BEQ 


WDM040 


004461 




STA 


WTEMP 


004462 




ASL 


A 


004463 




ADC 


WTEMP 


004464 




TAX 




004465 




LDY 


#3 


004466 


WDM010 


LDA 


DAYNAME-1, X 


004467 




STA 


DMSG-1, Y 


004468 




DEX 




004469 




DEY 




004470 




BNE 


WDM010 


004471 


* 






004472 




LDA 


DATETIME+7 


004473 




LDX 


DATETIME+6 


004474 




STA 


DMSG+6 



; GET. TIME (TIME. OUT) 

;SET UP WEEKDAY 
;NO CLOCK 



;SET UP DATE 
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004475 




STX 


DMSG+5 


004476 


* 






004477 




LDA 


DATETIME+5 


004478 




AND 


#$0F 


004479 




LDX 


DATETIME+4 


004480 




CPX 


#$31 


004481 




BCC 


WDM020 


004482 




ADC 


#9 


004483 


WDM020 


STA 


WTEMP 


004484 




ASL 


A 


004485 




ADC 


WTEMP 


004486 




TAX 




004487 




LDY 


#3 


004488 


WDM030 


LDA 


MONNAME-1 , X 


004489 




STA 


DMSG+7, Y 


004490 




DEX 




004491 




DEY 




004492 




BNE 


WDM030 


004493 








004494 




LDA 


DATETIME+3 


004495 




LDX 


DATETIME+2 


004496 




STA 


DMSG+13 


004497 




STX 


DMSG+12 


004498 








004499 




LDA 


DATETIME+10 


004500 




LDX 


DATETIME+09 


004501 




STA 


DMSG+17 


004502 




STX 


DMSG+16 


004503 


* 






004504 




LDA 


DATETIME+12 


004505 




LDX 


DATETIME+11 


004506 




STA 


DMSG+20 


004507 




STX 


DMSG+19 


004508 








004509 




LDY 


#DMSGL 


004510 


WDM050 


LDA 


DMSG-1, Y 


004511 




OPA 


#$80 


004512 




STA 


DMSGADR-1, Y 


004513 




DEY 




004514 




BNE 


WDM050 


004515 








004516 


* PRINT 


COPYRIGHT MESSAGE 




004517 








004518 


WDM040 


LDY 


#CMSGL 


004519 


WCM010 


LDA 


CMSG-1, Y 


004520 




STA 


CMSGADR-1, Y 


004521 




DEY 




004522 




BNE 


WCM010 


004523 




RTS 




004524 




PAGE 





;SET UP MONTH 



;SET UP YEAR 



;SET UP HOUR 



;SET UP MINUTE 



; PRINT DATE & TIME 
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004525 




REP 


100 


004526 








004527 


* WELCOME () - 


DATA 


DECLARATIONS 


004528 








004529 




REP 


100 


004530 




MSB 


ON 


004531 


AMSG 


ASC 


"APPLE ///" 


004532 


AMSGL 


EQU 


*-AMSG 


004533 


AMSGADR 


EQU 


40-AMSGL/2+$4A8 


004534 




MSB 


OFF 


004535 


SMS GAD R 


EQU 


$5A8 


004536 


DMSG 


ASC 


"DAY, DD-MON-YY HH:MM" 


004537 


DMSGL 


EQU 


*-DMSG 


004538 


DMSGADR 


EQU 


40-DMSGL/2+$6A8 


004539 


DAYNAME 


ASC 


" SUNMONTUEWEDTHUFRI SAT " 


004540 


MONNAME 


ASC 


" JANFEBMARAPRMAY JUN " 


004541 




ASC 


" JULAUGSEPOCTNOVDEC " 


004542 




MSB 


ON 


004543 


CMSG 


ASC 


"(0 1980,1981, 1982 BY APPLE COMPUTER INC." 


004544 


CMSGL 


EQU 


*-CMSG 


004545 


CMSGADR 


EQU 


40-CMSGL/2+$7D0 


004546 




MSB 


OFF 


004547 




PAGE 


004548 




REP 


100 


004549 


* 






004550 


* SOS SYSTEM CALLS 


(1) 


004551 








004552 




REP 


100 


004553 


* OPEN (PATHNAME. IN 


REFNUM. OUT, OPENLIST.IN, OPENCNT.IN) ** (ACCESS 


004554 




REP 


100 


004555 


OPEN 


EQU 


$C8 


004556 


* 






004557 


OPEN.PARMS 


DFB 


$4 


004558 




DW 


PATH 


004559 


OPEN . REF 


DFB 


$0 


004560 




DW 


OPEN. LIST 


004561 




DFB 


$4 


004562 


OPEN. LIST 


DFB 


$0,$4 ; PAGES :=4 


004563 




DW 


SYSBUF.P 


004564 


PATH 


DS 


$40 ; PATHNAME BUFFER 


004565 


I . LABEL 


ASC 


"SOS NTRP " ; FILE LABELS 


004566 


D . LABEL 


ASC 


"SOS DRVR" 


004567 




REP 


100 


004568 


* READ (REFNUM 


IN, BUFFER. IN, BYTES . IN, BYTE SREAD . OUT) 


004569 




REP 


100 


004570 


READ 


EQU 


$CA 


004571 








004572 


READ . PARMS 


DFB 


$4 


004573 


READ . REF 


DFB 


$0 


004574 


READ . BUF 


DW 


RDBUF . P 



(ACCESS. IN, PAGES. IN, SYSBUF . IN) 
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004575 


READ . BYT DW 


$FFFF-FILE+1 


004576 


READ . BYTRD DW 


$0 


004577 


REP 


100 


004578 


* CLOSE (REFNUM. IN) 




004579 


REP 


100 


004580 


CLOSE EQU 


$cc 


004581 






004582 


CLOSE . FARMS DFB 


$1 


004583 


CLOSE . REF DFB 


$0 


004584 


REP 


100 


004585 


* FIND. SEC ( SRCHMODE . IN, 


PAGES. IN, SEGID. IN, BASE. OUT, LIMIT. OUT, SEGNUM.OUT) 


004586 


REP 


100 


004587 


FINDSEG EQU 


$41 


004588 






004589 


SEGMENT 1 DFB 


$6 ; FIND. SEG (SRCHMODE, SEGID, PAGECT, 


004590 


SEGSRCH DFB 


$0, $3 


004591 


SEGPGCNT DW 


$0000 


004592 


DW 


$0 


004593 


DW 


$0 


004594 


DFB 


$0 


004595 


PAGE 




004596 


REP 


100 


004597 






004598 


* SOS SYSTEM CALLS (2) 




004599 






004600 


REP 


100 


004601 


REP 


100 


004602 


* REQUEST. SEG (BASE. IN, 


LIMIT. IN, SEGID. IN, SEGNUM.OUT) 


004603 


REP 


100 


004604 


REQSEG EQU 


$40 


004605 






004606 


SEGMENT DFB 


$4 ; REQUEST SEG PARM LIST 


004607 


SEGBASE DFB 


$F, $0 


004608 


SEGLIM DFB 


$F, $1D 


004609 


SEGID DFB 


$0, $0 


004610 


REP 


100 


004611 


* SET. PREFIX (PREFIXPATH 


. IN) 


004612 


REP 


100 


004613 


SETPREFIX EQU 


$C6 


004614 


PREFX. FARMS DFB 


$1 


004615 


DW 


PREFX . PATH 


004616 


PREFX . PATH DFB 


$3 


004617 


ASC 


' .Dl ' 


004618 


REP 


100 


004619 


* GETTIME (TIME. OUT) 




004620 


REP 


100 


004621 


GETTIME EQU 


$63 


004622 






004623 


DTPARMS DFB 


1 


004624 


DW 


DATETIME 



SEGNUM) 
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004625 


DATETIME 


ASC 


" YY Y YMMDDWHHMMS SMMM " 


004626 






PAGE 




004627 






REP 


100 


004628 










004629 


* 


END OF SOSLDR 


CODE 




004630 


* 








004631 






REP 


100 


004632 


SLOP 


EQU 


>$F8-* 


004633 






DS 


SLOP ; + 


004634 


INITMODULE 


DS 


$200 ; ! KERNEL'S INIT MODULE RESIDES HERE 


004635 


LDREND 


EQU 


* . + 


004636 


FILE 


EQU 


*-$2000+$400 


004637 






REP 


100 


004638 


★ 


SOS INTERPRETER FILE 




004639 






REP 


100 


004640 


I 


FILE 


EQU 


FILE 


004641 


I 


HDR . CNT 


EQU 


I .FILE+$8 


004642 






REP 


100 


004643 


* 


SOS DRIVER FILE 




004644 






REP 


100 


004645 


D 


FILE 


EQU 


FILE 


004646 


D 


HDR . CNT 


EQU 


D.FILE+$8 


004647 


D 


DRIVES 


EQU 


D.HDR.CNT+$2 


004648 


D 


CHRSET 


EQU 


D.DRIVES+$2+$10 


004649 


D 


KYBD 


EQU 


D.CHRSET+$10+$400 


004650 






REP 


100 


004651 










004652 






LST 


ON 


004653 


ZZEND 


EQU 


* 


004654 


ZZLEN 


EQU 


ZZEND-ZZORG 


004655 


★ 








004656 


NE 


ZZLEN- 


LENLODR 


004657 






FAIL 


2,"SOSORG FILE IS INCORRECT FOR SOS LOADER" 


004658 






FIN 




004659 










004660 










004661 


************************************************************************* 


004662 


* 


END OF APPLE 


/// SOS 


1.3 SOURCE CODE FILE: SOSLDR. F. SRC 


004663 


************************************************************************* 


004664 










004665 
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004666 
004667 
004668 
004669 
004670 
004671 
004672 
004673 
004674 
004675 
004676 
004677 
004678 
004679 
004680 
004681 
004682 
004683 
004684 
004685 
004686 
004687 
004688 
004689 
004690 
004691 
004692 
004693 
004694 
004695 
004696 
004697 
004698 
004699 
004700 
004701 
004702 
004703 
004704 
004705 
004706 
004707 
004708 
004709 
004710 
004711 
004712 
004713 
004714 



DOCUMENT : SOS1 . 3 . lof 5 . ONE : SOS . SOSLDR. SRC . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR. SRC 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

"SOS 1.1 SOS LOADER" 
$1E00 



ZZORG 



SBTL 
REL 
ORG 
EQU 
MSB 
REP 
COPYRIGHT 

REP 



OFF 
100 

(C) APPLE COMPUTER INC. 
ALL RIGHTS RESERVED 

100 



1980 



* SOS KERNEL LOAD & MEMORY POINTS 

* MODULE START END I/O ROM SOS BLOAD 



SOSLDR 

INIT 

SYSGLOB 



1E00 - 28F7 
28F8 - 2AA9 
18FC - 1A03 



2000 
2AF8 
2CF8 



BFM.INIT2 + BITMAPS 



BFM 

<PATCH> 

OPRMSG 

IPL 

UMGR 

DISK3 

SYSERR 

DEVMGR 

SCMGR 

FMGR 

CFMGGR 

BUFMGR 
MEMMGR 
<END> 



FFBE 



REP 



SIZE 



0CF8 
[01B2] 



B800 


- BBFF 






2E00 


03FF 


BC00 


- DE62 






3200 


2263 


DE63 


- DE6A 






5463 


0008 


DE6B 


- E48A 


X 




546B 


015A 


DFC5 


- E48F 


X 


X 


55C5 


04CB 


E490 


- E89D 


X 


X 


5A8B 


040E 


E899 


- EE03 


X 


X 


5E99 


056B 


EE04 


- EED8 


X 




64D9 


00D5 


EED9 


- F05D 






64D9 


0185 


F05E 


- F2F3 






665E 


0296 


F2F4 


- F354 






68F4 


0061 


F355 


- F551 






6955 


01FD 


F552 


- F86D 






6B52 


031C 


F86E 


- FFBE 






6E6E 


0751 



100 
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004715 


* 


SOS LOADER (VERSION =1.10 ) 


004716 




(DATE = 8/04/81) 


004717 


* 




004718 




SOURCE FILES: SOSLDR.SRC, SOSLDR. A. SRC, SOSLDR . B . SRC, SOSLDR. C . SRC, 


004719 




SOSLDR.D.SRC, SOSLDR . E . SRC, SOSLDR. F. SRC 


004720 






004721 


* 


FUNCTION: 


004722 




MOVES AND INITIALIZES SOS KERNEL, READS INTERPRETER FROM DISK, READS CHARACTER SET TABLE, 


004723 




KEYBOARD TABLE AND DRIVERS FROM DISK, INITIALIZES ALL DRIVERS AND THEN JUMPS TO INTERPRETER 


004724 


* 


ENTRY POINT. 


004725 






004726 




CALLED BY: 


004727 


* 


SOSBOOT 7.0 WITH KERNEL FILE LOADED AT $1 : 1E00 . 9FFF (MAX) 


004728 




WHERE: $I=INTERPRETER BANK (HIGHEST BANK IN SYSTEM) 


004729 






004730 




CALLS : 


004731 


* 


INTERPRETER ENTRY POINT (FIRST BYTE OF INTERPRETER CODE) 


004732 






004733 


* 


DOCUMENTS : 


004734 




SOS ERS APPENDICES - XX/XX/81 


004735 


* 


APPLE III I/O SYSTEM PROGRAMMERS GUIDE - DEC-15-80 


004736 


* 




004737 


* 


CONSTRAINTS : 


004738 




INTERPRETER FILE: READ INTO BANK BEGINNING AT $80 : LDREND+$400 (=BUFSIZE) . 


004739 


* 


INTERPRETER CODE DOES NOT CONTAIN RELOCATION INFORMATION. 


004740 




MAX = 38K ($1:2000. . B7FF) 


004741 


* 


MIN = .25K ($1 :B700 . .B7FF) 


004742 






004743 




DRIVER FILE: READ INTO BANK BEGINNING AT $80 : LDREND+$400 (=BUFSIZE) . 


004744 




DRIVER MODULES ARE RELOCATED AND MOVED TO THE HIGHEST AVAILABLE 32K BANK USING 


004745 




A "FIRST FIT" ALGORITHM. MODULES ARE REMOVED FROM THE FILE BEGINNING AT THE BACK 


004746 


* 


AND WORKING TOWARD THE FRONT. A DRIVER MODULE CANNOT SPAN A BANK BOUNDARY. 


004747 






004748 




DRIVER FILE: MAX = 60K (APPROX) DRIVER MODULE: MAX = 32K-1 


004749 




MIN = .25K MIN < .25K 


004750 






004751 


* 




004752 


* 


DATA STRUCTURES: 


004753 


* 


SOS. KERNEL FILE FORMAT 


004754 


* 


SOS.INTERP FILE FORMAT 


004755 


* 


SOS. DRIVER FILE FORMAT 


004756 






004757 




REP 100 


004758 




PAGE 


004759 




REP 100 


004760 


* 




004761 




NOTATION: 


004762 






004763 




A, X, Y ::= 6502 REGISTERS 


004764 
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004765 
004766 
004767 
004768 
004769 
004770 
004771 
004772 
004773 
004774 
004775 
004776 
004777 
004778 
004779 
004780 
004781 
004782 
004783 
004784 
004785 
004786 
004787 
004788 
004789 
004790 
004791 
004792 
004793 
004794 
004795 
004796 
004797 
004798 
004799 
004800 
004801 



C, OV 
E, Z, B 

(l.I.S.R:W.P.R.R) 



"POSITIVE LOGIC" 
TRUE, FALSE 

REP 

ABBREVIATIONS : 
DIB 

ADIB 
<VARNAME> . P 
SDT 

REP 
CHN 



CARRY, OVERFLOW FLAGS IN 6502 STATUS (P) REGISTER 

ENVIRONMENT, ZERO PAGE, BANK REGISTERS (SYSTEM CONTROL REGISTERS) 

ENVIRONMENT REGISTER FLAGS. FROM LEFT TO RIGHT BITS 7..0 
(1MHZ, I/O ENABLE, SCREEN ENABLE, RESET ENABLE, 
WRITE PROTECT, PRIMARY STACK, ROM1, ROM ENABLE) 

ALL LOGIC USED IS POSITIVE LOGIC. FOR EXAMPLE, C="NO DRIVERS LEFT" 
INDICATES THAT NO DRIVERS ARE LEFT WHEN CARRY = SET, AND THAT ONE OR 
MORE DRIVERS ARE LEFT WHEN CARRY = CLEAR. 

TRUE = SET = ON, WHILE FALSE = CLEAR = OFF. 

100 



DEVICE INFORMATION BLOCK. DEFINES A UNIQUE DEVICE THAT CAN BE LINKED 
INTO THE SYSTEM DEVICE TABLE. EACH DRIVER MODULE CONTAINS ONE OR MORE 
DIBS (DEVICES) EACH OF WHICH CAN BE "ACTIVE" OR "INACTIVE". 

"ACTIVE DIB" 

POINTER. A 3 BYTE ZERO PAGE POINTER. DON'T FORGET THE X BYTE! 

SYSTEM DEVICE TABLE. CONTAINS THE ENTRY POINT AND DIB ADDRESS OF EACH 

DEVICE CONFIGURED INTO THE SYSTEM, (USED BY THE DEVICE MANAGER) . 

100 

SOSLDR.A.SRC 



************************************************************************* 

* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR.SRC 
******************************************************************* 
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004802 
004803 
004804 
004805 
004806 
004807 
004808 
004809 
004810 
004811 
004812 
004813 
004814 
004815 
004816 
004817 
004818 
004819 
004820 
004821 
004822 
004823 
004824 
004825 
004826 
004827 
004828 
004829 
004830 
004831 
004832 
004833 
004834 
004835 
004836 
004837 
004838 
004839 
004840 
004841 
004842 
004843 
004844 
004845 
004846 
004847 
004848 
004849 
004850 



DOCUMENT : SOS1 . 3 . lof 5 . ONE : SOS . SYSGLOB . SRC . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: SYSGLOB. SRC 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



SBTL 
REL 
ORG 
MSB 
REP 
COPYRIGHT 

REP 



"SOS 1.1 GLOBAL EQUATES" 

$18FC 
OFF 

60 

(C) APPLE COMPUTER INC. 1980 
ALL RIGHTS RESERVED 

60 



SOS SYSTEM GLOBAL DATA & EQUATES 

THIS MODULE CONTAINS THE SOS JUMP TABLE, AND ALL GLOBAL 
DATA AND EQUATES. THE JUMP TABLE, AND ALL DATA THAT IS 
TO BE REFERENCED BY DEVICE HANDLERS, ARE ASSIGNED FIXED 
ADDRESSES AT THE BEGINNING OF MEMORY PAGE $19. DATA 
THAT IS ONLY REFERENCED BY SOS BEGINS $1980, BUT MAY BE 
MOVED WHENEVER SOS IS RELINKED. 



REP 

EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 



ENTRY 
ENTRY 
ENTRY 
ENTRY 



60 

ALLOCS IR 

DEALCSIR 

NMIDSBL 

NMIENBL 

QUEEVENT 

SELC800 

SYSDEATH 

SYSERR 

REQBUF 

GETBUFADR 

RELBUF 

NMIDBUG 

NMICONT 

COLDSTRT 



MEMSIZE 
SYSBANK 
SUSPFLSH 
NMIFLAG 
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004851 




ENTRY 


SCRNMODE 


004852 




ENTRY 


GRSIZE 


004853 








004854 




ENTRY 


SERR 


004855 




ENTRY 


DBUGBRK 


004856 




ENTRY 


KYBDNMI 


004857 




ENTRY 


NMISPSV 


004858 




ENTRY 


SDEATH . REGS 


004859 


* 






004860 




ENTRY 


SOSVER 


004861 




ENTRY 


SOSVERL 


004862 








004863 




ENTRY 


SZPAGE 


004864 




ENTRY 


SXPAGE 


004865 




ENTRY 


SSPAGE 


004866 








004867 




ENTRY 


CZPAGE 


004868 




ENTRY 


CXPAGE 


004869 




ENTRY 


CSPAGE 


004870 




ENTRY 


CEVPRI 


004871 








004872 




ENTRY 


SIRTEMP 


004873 




ENTRY 


SIRARGSIZ 


004874 




ENTRY 


IRQCNTR 


004875 




ENTRY 


NMICNTR 


004876 




ENTRY 


QEVTEMP 


004877 




ENTRY 


QEV.THIS 


004878 




ENTRY 


QEV. LAST 


004879 








004880 




ENTRY 


BADBRK 


004881 




ENTRY 


BADINT1 


004882 




ENTRY 


BADINT2 


004883 




ENTRY 


NMIHANG 


004884 




ENTRY 


EVQOVFL 


004885 




ENTRY 


STKOVFL 


004886 




ENTRY 


BADSYSCALL 


004887 




ENTRY 


DEV.OVFLOW 


004888 




ENTRY 


MEM2SML 


004889 




ENTRY 


VCBERR 


004890 




ENTRY 


FCBERR 


004891 




ENTRY 


ALCERR 


004892 




ENTRY 


DIRERR 


004893 




ENTRY 


TOOLONG 


004894 




ENTRY 


BADBUFNUM 


004895 




ENTRY 


BADBUFSIZ 


004896 




ENTRY 


BITMAP ADR 


004897 


* 






004898 




ENTRY 


BADSCNUM 


004899 




ENTRY 


BADCZPAGE 


004900 




ENTRY 


BADXBYTE 
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004901 




ENTRY 


BADSCPCNT 


004902 




ENTRY 


BADSCBNDS 


004903 








004904 




ENTRY 


NODNAME 


004905 




ENTRY 


BADDNUM 


004906 








004907 




ENTRY 


BADPATH 


004908 




ENTRY 


CFCBFULL 


004909 




ENTRY 


FCBFULL 


004910 




ENTRY 


BADREFNUM 


004911 




ENTRY 


PATHNOTFND 


004912 




ENTRY 


VNFERR 


004913 




ENTRY 


FNFERR 


004914 




ENTRY 


DUPERR 


004915 




ENTRY 


OVRERR 


004916 




ENTRY 


DIRFULL 


004917 




ENTRY 


CP TERR 


004918 




ENTRY 


TYPERR 


004919 




ENTRY 


EOFERR 


004920 




ENTRY 


POSNERR 


004921 




ENTRY 


ACCSERR 


004922 




ENTRY 


BTSERR 


004923 




ENTRY 


FILBUSY 


004924 




ENTRY 


NOTSOS 


004925 




ENTRY 


BADLSTCNT 


004926 




ENTRY 


OUTOFMEM 


004927 




ENTRY 


BUFTBLFULL 


004928 




ENTRY 


BADSYSBUF 


004929 




ENTRY 


DUPVOL 


004930 




ENTRY 


NOTBLKDEV 


004931 




ENTRY 


LVLERR 


004932 


* 






004933 




ENTRY 


BADJMODE 


004934 








004935 




ENTRY 


BADBKPG 


004936 




ENTRY 


SEGRQDN 


004937 




ENTRY 


SEGTBLFULL 


004938 




ENTRY 


BADSEGNUM 


004939 




ENTRY 


SEGNOTFND 


004940 




ENTRY 


BADSRCHMODE 


004941 




ENTRY 


BADCHGMODE 


004942 




ENTRY 


BADPGCNT 


004943 








004944 




ENTRY 


XREQCODE 


004945 




ENTRY 


XCTLCODE 


004946 




ENTRY 


XCTLPARM 


004947 




ENTRY 


XNOTOPEN 


004948 




ENTRY 


XNOTAVAIL 


004949 




ENTRY 


XNORESRC 


004950 




ENTRY 


XBADOP 
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004951 


ENTRY 


XIOERROR 




004952 


ENTRY 


XNODRIVE 




004953 


ENTRY 


XNOWRITE 




004954 


ENTRY 


XBYTECNT 




004955 


ENTRY 


XBLKNUM 




004956 


ENTRY 


XDISKSW 




004957 


ENTRY 


BACKMASK 


; MASK BYTE FOR BACKUP BIT. 


004958 


* 






004959 


ENTRY 


E1908 


; DISK DRIVER IS READING/WRITING 


004960 








004961 


PAGE 






004962 


DW 


SYSGLOB 


; SYSGLOB TARGET ADDRESS 


004963 


DW 


$0100 


; AND LENGTH 


004964 








004965 


* SYSTEM GLOBAL DATA 






004966 


* (ACCESSIBLE TO SOS AND DEVICE HANDLERS) 




004967 


* 






004968 


SYSGLOB EQU 


* 




004969 








004970 


MEMSIZE DFB 


$08 


; MEMORY SIZE = 128K 


004971 


SYSBANK DFB 


$02 


; SYSTEM BANK = 2 


004972 


SUSPFLSH DFB 


$00 


;SYSOUT SUSPEND/FLUSH FLAG 


004973 


NMIFLAG DFB 


$00 


;NMI PENDING FLAG 


004974 


DW 


NMIEXIT 


; DEFAULT NMI VECTOR 


004975 


SCRNMODE DFB 


$80 


; CURRENT SCREEN MODE 


004976 


GRSIZE DFB 


$00 




004977 








004978 








004979 


* SOS JUMP TABLE 






004980 


* 






004981 


DS 


SYSGLOB+$10-*, $00 


; USED BY THE MOUSE DRIVER 


004982 


USERNMI JMP 


NMIEXIT 


; KEYBOARD NMI VECTOR 


004983 


JMP 


ALLOCS IR 


; ALLOCATE A SIR 


004984 


JMP 


DEALCSIR 


; DEALLOCATE A SIR 


004985 


JMP 


NMIDSBL 


; DISABLE NMI 


004986 


JMP 


NMIENBL 


; ENABLE NMI 


004987 


JMP 


QUEEVENT 


; QUEUE AN EVENT 


004988 


JMP 


SELC800 


; SELECT I/O EXPANSION ROM 


004989 


JMP 


SYSDEATH 


; SYSTEM DEATH 


004990 


JMP 


SYSERR 


;SOS ERROR 


004991 


JMP 


REQBUF 


; REQUEST BUFFER 


004992 


JMP 


GETBUFADR 


; GET BUFFER'S ADDRESS 


004993 


JMP 


RELBUF 


; RELEASE BUFFER 


004994 


JMP 


CLRBMASK 


; VECTOR TO CLRBMASK 


004995 


PAGE 






004996 








004997 


* SOS DATA AND EQUATES 






004998 


* (ACCESSIBLE ONLY TO 


SOS) 




004999 








005000 


DS 


SYSGLOB+$80-*, $00 
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005001 


SERR 


DFB 


$00 


; SYSTEM ERROR CODE 


005002 










005003 


DBUGBRK 


NOP 




;TO ENABLE DEBUG BREAK POINTS, 


005004 




PLA 




; PATCH THESE BYTES TO 


005005 




PLA 




; JMP TO THE DEBUGGER 


005006 




RTS 






005007 


* 








005008 


KYBDNMI 


JMP 


USERNMI 




005009 




JMP 


NMIDBUG 




005010 


NMISPSV 


DFB 







005011 




JMP 


NMICONT 




005012 


NMIEXIT 


RTS 






005013 


* 








005014 










005015 


SOSVER 


ASC 


"SOS 1.3 01-DEC- 


32" 


005016 


SOSVERL 


EQU 


*- SOSVER 




005017 










005018 




ASC 


" (C) 1980, 1981 BY 


APPLE COMPUTER INC . " 


005019 










005020 


E1908 


EQU 


$1908 


; ALLOCATED TO STEPHEN SMITH (MOUSE DRIVER) 


005021 


* ABOVE SET 


AND RESET 


IN DISK DRIVER 




005022 


SZPAGE 


EQU 


$1800 


; SYSTEM ZERO PAGE 


005023 


SXPAGE 


EQU 


$1400 


; SYSTEM EXTEND PAGE 


005024 


SSPAGE 


EQU 


$0100 


; SYSTEM STACK PAGE 


005025 










005026 


CZPAGE 


EQU 


$1A00 


; CALLER'S ZERO PAGE 


005027 


CXPAGE 


EQU 


$1600 


; CALLER'S EXTEND PAGE 


005028 


CSPAGE 


EQU 


$1B00 


; CALLER'S STACK PAGE 


005029 


CEVPRI 


DFB 


$00 


; CALLER'S EVENT PRIORITY 


005030 










005031 


SIRTEMP 


DFB 


$00 


; TEMP FOR ALLOCSIR & DEALCSIR 


005032 


SIRARGSIZ 


DFB 


$00 


; ARGUMENT COUNT FOR ALLOCSIR & DEALCSIR 


005033 


IRQCNTR 


DW 


$0000 


; FALSE IRQ COUNTER 


005034 


NMICNTR 


DW 


$0000 


/COUNTER FOR NMILOCK 


005035 


QEVTEMP 


DFB 


$00 


; TEMP FOR QUEEVENT 


005036 


QEV.THIS 


DFB 


$00 


; POINTER FOR QUEEVENT 


005037 


QEV . LAST 


DFB 


$00 


; POINTER FOR QUEEVENT 


005038 










005039 


SOSQUIT 


DS 


COLDSTRT 




005040 


BACKMASK 


DFB 


BACKBIT 


; MASK USED BY BFM TO UPDATE BACKUP BIT 


005041 


* 








005042 


* TO CLEAR 


THE BACKUP 


BIT, A PROGRAM MUST JSR 


TO CLRBMASK THRU 1934 THEN DO A 


005043 


* SET-FILE- 


INFO WITH 


NO INTERVENING SOS CALLS 


. ANY SOS CALL WILL 


005044 


* SET BACKMASK AGAIN. 


THIS FEATURE IS INTENTIONALLY LEFT UNDOCUMENTED. 


005045 










005046 


CLRBMASK 


AND 


#BACKBIT 


; PURIFY 


005047 




STA 


BACKMASK 


; SET THE MASK 


005048 




RTS 




; AND BACK TO THE CALLER 


005049 




PAGE 






005050 
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005051 


* SYSTEM DEATH 


REGISTER 


SAVE AREA 




005052 


* (SYSTEM STACK MOVED TO 


$1700-$17FF) 




005053 


* 








005054 




DS 


SYSGLOB+$F6-*, $00 




005055 


SDEATH . REGS 


EQU 


* 




005056 




DFB 


$00 


BANK 


005057 




DFB 


$00 


ZERO PAGE 


005058 




DFB 


$00 


ENVIRONMENT 


005059 




DFB 


$00 


Y 


005060 




DFB 


$00 


X 


005061 




DFB 


$00 


A 


005062 




DFB 


$00 


STATUS 


005063 




DW 


$00 


PROGRAM COUNTER 


005064 




DFB 


$00 


STACK POINTER 


005065 


* 








005066 


* SYSTEM DEATH 


ERROR NUMBERS 




005067 










005068 


BADBRK 


EQU 


$01 


BRK FROM SOS 


005069 


BADINT1 


EQU 


$02 


INTERRUPT NOT FOUND 


005070 


BADINT2 


EQU 


$03 


BAD ZERO PAGE ALLOCATION 


005071 


NMIHANG 


EQU 


$04 


UNABLE TO LOCK NMI 


005072 


EVQOVFL 


EQU 


$05 


EVENT QUEUE OVERFLOW 


005073 


STKOVFL 


EQU 


$06 


STACK OVERFLOW 


005074 










005075 


BADSYSCALL 


EQU 


$07 


DMGR DETECTED INVALID REQUEST CODE 


005076 


DEV . OVFLOW 


EQU 


$08 


DMGR - TOO MANY DEVICE HANDLERS 


005077 


MEM2SML 


EQU 


$09 


MEMORY SIZE < 64K 


005078 


VCBERR 


EQU 


$0A 


VOLUME CONTROL BLOCK NOT USABLE (BFMGR) 


005079 


FCBERR 


EQU 


$0B 


FILE CONTROL BLOCK CRASHED 


005080 


ALCERR 


EQU 


$0C 


ALLOCATION BLOCKS INVALID 


005081 


TOOLONG 


EQU 


$0E 


PATHNAME BUFFER OVERFLOW 


005082 


BADBUFNUM 


EQU 


$0F 


INVALID BUFFER NUMBER 


005083 


BADBUFSIZ 


EQU 


$10 


INVALID BUFFER SIZE (=0 OR >16K) 


005084 




PAGE 






005085 










005086 


* SYSTEM ERROR 


NUMBERS 






005087 










005088 


* - SYSTEM CALL 


MANAGER 






005089 










005090 


BADSCNUM 


EQU 


$01 


BAD SYSTEM CALL NUMBER 


005091 


BADCZPAGE 


EQU 


$02 


BAD CALLER'S ZPAGE (MUST=$1A) 


005092 


BADXBYTE 


EQU 


$03 


BITS 6 . . 4 <> 


005093 


BADSCPCNT 


EQU 


$04 


BAD SYSTEM CALL PARM COUNT 


005094 


BADSCBNDS 


EQU 


$05 


SYS CALL PARM ADR 


005095 


* 








005096 


* - DEVICE MANAGER 






005097 










005098 


NODNAME 


EQU 


$10 


DEVICE NAME NOT FOUND 


005099 


BADDNUM 


EQU 


$11 


INVALID DEV.NUM PARM 


005100 
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005101 


* - DEVICE 


HANDLERS 


(STANDARD ERRORS) 




005102 










005103 


XREQCODE 


EQU 


$20 


INVALID REQUEST CODE 


005104 


XCTLCODE 


EQU 


$21 


INVALID CONTROL/STATUS CODE 


005105 


XCTLPARM 


EQU 


$22 


INVALID CONTROL/STATUS PARM 


005106 


XNOTOPEN 


EQU 


$23 


DEVICE NOT OPEN 


005107 


XNOTAVAIL 


EQU 


$24 


DEVICE NOT AVAILABLE 


005108 


XNORESRC 


EQU 


$25 


UNABLE TO OBTAIN RESOURCE 


005109 


XBADOP 


EQU 


$26 


INVALID OPERATION 


005110 


XIOERROR 


EQU 


$27 


I/O ERROR 


005111 










005112 


XNODRIVE 


EQU 


$28 


NO DRIVE CONNECTED 


005113 


XNOWRITE 


EQU 


$2B 


DEVICE WRITE PROTECTED 


005114 


XBYTECNT 


EQU 


$2C 


BYTE COUNT OA MULTIPLE OF 512 


005115 


XBLKNUM 


EQU 


$2D 


BLOCK NUMBER TOO LARGE 


005116 


XDISKSW 


EQU 


$2E 


DISK MEDIA HAS BEEN SWITCHED 


005117 










005118 


* - NOTE: ERROR CODES $30-$3F HAVE BEEN RESERVED 


FOR DEVICE 


005119 


* HANDLER SPECIFIC 


ERRORS 




005120 










005121 










005122 


* - FILE MANAGER 






005123 










005124 


BADPATH 


EQU 


$40 


PATHNAME, INVALID SYNTAX 


005125 


CFCBFULL 


EQU 


$41 


CHAR FILE CTRL BLOCK TABLE FULL 


005126 


FCBFULL 


EQU 


$42 


BLOCK FILE CTRL BLOCK TABLE FULL 


005127 


BADREFNUM 


EQU 


$43 


INVALID REF.NUM PARM 


005128 


PATHNOTFND 


EQU 


$44 


PATHNAME NOT FOUND 


005129 


VNFERR 


EQU 


$45 


VOLUME NOT FOUND 


005130 


FNFERR 


EQU 


$46 


FILE NOT FOUND 


005131 


DUPERR 


EQU 


$47 


DUPLICATE FILE NAME ERROR 


005132 


OVRERR 


EQU 


$48 


NOT ENOUGH DISK SPACE FOR PREALLOCAT I ON 


005133 


DIRFULL 


EQU 


$49 


DIRECTORY FULL ERROR 


005134 


CP TERR 


EQU 


$4A 


FILE INCOMPATIBLE SOS VERSION 


005135 


TYPERR 


EQU 


$4B 


NOT CURRENTLY SUPPORTED FILE TYPE 


005136 


EOFERR 


EQU 


$4C 


POSITION ATTEMPTED BEYOND END OF FILE 


005137 


POSNERR 


EQU 


$4D 


ILLEGAL POSITION (L.T. OR G.T. $FFFFFF) 


005138 


ACCSERR 


EQU 


$4E 


FILE ACCESS R/W REQUEST CONFLICTS WITH ATTRIBUTES 


005139 


BTSERR 


EQU 


$4F 


USER SUPPLIED BUFFER TOO SMALL 


005140 


FILBUSY 


EQU 


$50 


EITHER WRITE WAS REQUESTED OR WRITE ACCESS ALREADY 


005141 


DIRERR 


EQU 


$51 


DIRECTORY ERROR 


005142 


NOTSOS 


EQU 


$52 


NOT A SOS DISKETTE 


005143 


BADLSTCNT 


EQU 


$53 


INVALID VALUE IN LIST PARAMETER 


005144 


OUTOFMEM 


EQU 


$54 


OUT OF FREE MEMORY FOR BUFFER 


005145 


BUFTBLFULL 


EQU 


$55 


BUFFER TABLE FULL 


005146 


BADSYSBUF 


EQU 


$56 


INVALID SYSBUF PARAMETER 


005147 


DUPVOL 


EQU 


$57 


SON A BITCH GOT TWO VOLUMES OF SAME ROOT NAME ! ! ! 


005148 


NOTBLKDEV 


EQU 


$58 




005149 


LVLERR 


EQU 


$59 


INVALID FILE LEVEL 


005150 


BITMAP ADR 


EQU 


$5A 
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005151 


BACKBIT 


EQU 


$20 


; MASK FOR BACKUP BIT 


005152 












005153 


* - UTILITY 


MANAGER 








005154 












005155 


BAD JMODE 


EQU 


$70 


; INVALID 


JOYSTICK REQUEST 


005156 












005157 


* - MEMORY MANAGER 








005158 












005159 


BADBKPG 


EQU 


$E0 


; INVALID 


BANK/PAGE PAIR 


005160 


SEGRQDN 


EQU 


$E1 


; SEGMENT 


REQUEST DENIED 


005161 


SEGTBLFULL 


EQU 


$E2 


; SEGMENT 


TABLE FULL 


005162 


BADSEGNUM 


EQU 


$E3 


; INVALID 


SEGMENT NUMBER 


005163 


SEGNOTFND 


EQU 


$E4 


; SEGMENT 


NOT FOUND 


005164 


BADSRCHMODE 


EQU 


$E5 


; INVALID 


SEARCH MODE PARM 


005165 


BADCHGMODE 


EQU 


$E6 


; INVALID 


CHANGE MODE PARM 


005166 


BADPGCNT 


EQU 


$E7 


; INVALID 


PAGE COUNT PARM 


005167 




ORG 


SYSGLOB+$100 






005168 




DW 


$B800 


; KERNEL TARGET ADDRESS 


005169 




DW 


$47C0 


; AND LENGTH 


005170 












005171 


************************************************************************* 


005172 


* END OF APPLE /// SOS 


1.3 SOURCE CODE FILE: 


SYSGLOB . SRC 




005173 


************************************************************************* 


005174 












005175 












005176 
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005177 
005178 
005179 
005180 
005181 
005182 
005183 
005184 
005185 
005186 
005187 
005188 
005189 
005190 
005191 
005192 
005193 
005194 
005195 
005196 
005197 
005198 
005199 
005200 
005201 
005202 
005203 
005204 
005205 
005206 
005207 
005208 
005209 
005210 
005211 
005212 
005213 
005214 
005215 
005216 
005217 
005218 
005219 
005220 
005221 
005222 
005223 
005224 
005225 



DOCUMENT : SOS1 . 3 . 2of 5 . TWO : SOS . BUGMGR. TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: BUFMGR . SRC 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



SBTL 
REL 

INCLUDE 
*ORGBUFMG EQU $F552 
*LENBUFMG EQU $31C 

ORG 

ZZORG EQU 
MSB 
REP 



"SOS 1.1 BUFFER MANAGER" 



SOSORG, 6, 1, 254 



ORGBUFMG 

OFF 

60 



1980 



COPYRIGHT (C) APPLE COMPUTER INC. 

ALL RIGHTS RESERVED 
REP 60 

BUFFER MANAGER (VERSION =1.10 ) 
(DATE = 8/04/81) 

THIS MODULE IS RESPONSIBLE FOR CREATING AND RELEASING BUFFERS 
FOR BOTH THE BLOCK FILE MANAGER AND, LATER, DEVICE HANDLERS 
THE BUFFER MANAGER CREATES BUFFERS BY REQUESTING MEMORY 
SEGMENTS FROM THE MEMORY MANAGER, AND RELEASES THEM VIA SAME. 
THE PRIMARY DATA STRUCTURE IN THIS MODULE IS THE BUFFER TABLE. 



REP 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

EXTRN 
EXTRN 
EXTRN 
EXTRN 

EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 



60 

REQBUF 

REQFXBUF 

GETBUFADR 

CHKBUF 

RELBUF 

MMGR 
SXPAGE 
CZPAGE 
CXPAGE 

SYSERR 
SERR 

OUTOFMEM 

BUFTBLFULL 

BADSYSBUF 
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005226 








005227 




EXTRN 


SYSDEATH 


005228 




EXTRN 


BADBUFNUM 


005229 




EXTRN 


BADBUFSIZ 


005230 








005231 




ENTRY 


BUF . CNT 


005232 




ENTRY 


PGCT.T 


005233 




ENTRY 


XBYTE . T 


005234 




ENTRY 


BUFREF 


005235 




PAGE 




005236 




REP 


60 


005237 








005238 


* DATA DECLARATIONS 




005239 








005240 




REP 


60 


005241 








005242 


Z.REG 


EQU 


$FFD0 


005243 


* 






005244 


* MEMORY MGMT 


CALL FARM 


LOCATIONS ON SOS 


005245 








005246 


M.TPARMX 


EQU 


$60 


005247 


REQCODE 


EQU 


M.TPARMX+$0 


005248 








005249 


FINDSEG 


EQU 


$1 


005250 


SRCHMODE 


EQU 


M.TPARMX+$1 


005251 


F.ID 


EQU 


M.TPARMX+$2 


005252 


F.PGCT 


EQU 


M.TPARMX+$3 


005253 


F.PGCTX 


DS 


2 


005254 


F . BASE 


EQU 


M.TPARMX+$5 


005255 


F . BASEX 


DS 


2 


005256 


F.LIM 


EQU 


M.TPARMX+$7 


005257 


F.LIMX 


DS 


2 


005258 


F.NUM 


EQU 


M.TPARMX+$9 


005259 


F . NUMX 


DS 


1 


005260 








005261 


RELSEG 


EQU 


$5 


005262 


RLS . NUM 


EQU 


M.TPARMX+$1 


005263 








005264 


* REQBUF DATA 


DECLARATIONS 


005265 








005266 


RQB.PGCT 


DS 


1 


005267 


RQB . BNUM 


DS 


1 


005268 








005269 


* REQFXBUF DATA DECLARATIONS 


005270 








005271 


RQFB . PGCT 


DS 


1 


005272 


RQFB . BNUM 


DS 


1 


005273 


MAXPGCT 


EQU 


64 


005274 


F . TPARMX 


EQU 


$A0 


005275 


OPEN. LIST 


EQU 


F.TPARMX+$5 



; FIRST ADR OF MEM SYS CALL PARMS ON SOS ZPAGE 



; TEMP LOC FOR F.PGCT PARM 

; TEMP LOC FOR F . BASE PARM 

; TEMP LOC FOR F.LIM PARM 

; TEMP LOC FOR F.NUM PARM 



; REQUESTED PAGE COUNT 

; BUFFER NUMBER (FM GETFREE CALL) 



REQUESTED PAGE COUNT 

BUFFER NUMBER (FM GETFREE CALL) 

MAX BUFSIZE=16K 

FIRST ADR OF FILE SYS CALL PARMS ON SOS ZPAGE 
LOC OF OPEN. LIST PARM (OPEN SYS CALL) 
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005276 
005277 
005278 
005279 
005280 
005281 
005282 
005283 
005284 
005285 
005286 
005287 
005288 
005289 
005290 
005291 
005292 
005293 
005294 
005295 
005296 
005297 
005298 
005299 
005300 
005301 
005302 
005303 
005304 
005305 
005306 
005307 
005308 
005309 
005310 
005311 
005312 
005313 
005314 
005315 
005316 
005317 
005318 
005319 
005320 
005321 
005322 
005323 
005324 
005325 



* BUFCOMPACT DATA DECLARATIONS (SOURCE ALSO USED BY CHKBUF) 



BUFC . BNUM 

SOURCE 

DEST 



BUFFER TABLE 



DS 

EQU 

EQU 

PAGE 

REP 



M.TPARMX+$10 
M.TPARMX+$12 

60 



BUF# OF LOWEST BUFFER IN BUF . TBL 
& $11 
& $13 



THE BUFFER TABLE CONSISTS OF "CNT"-1 ENTRIES (1 TO "CNT"-1) . 
EACH ENTRY IS "SIZ" BYTES IN LENGTH. THE "PGCT" FIELD 
CONTAINS 3 SUBFIELDS. BIT 7 IS THE "FREE" FLAG (0=ACTIVE, 1=FREE) 
BIT 6 IS THE "FIXED" FLAG (0=FLOATING BUFFER, 1=FIXED BUFFER) 
BITS 5 THRU CONTAIN THE PAGE COUNT OF AN "ACTIVE" ENTRY 
(0=>1 PAGE, 63=>64 PAGES DECIMAL). THE "XBYTE" FIELD CONTAINS 
THE PROPER XBYTE OF AN "ACTIVE" ENTRY. THE "ADRH" FIELD 
CONTAINS THE HIGH BYTE OF THE BUFFER ADDRESS. IF THE 
BUFFER ENTRY IS "FLOATING", THEN THE "SEG" FIELD CONTAINS THE 
SEGMENT NUMBER AND THE LOW BYTE OF THE BUFFER ADDRESS IS 
AS SUMMED TO BE ZERO. 

THUS, THE FOLLOWING RESTRICTIONS APPLY TO BUFFERS: 

(1) MAXIMUM BUFFER LENGTH IS 64 PAGES (16K) 

(2) "FLOATING" BUFFERS ALWAYS BEGIN ON A PAGE BOUNDARY 
"FIXED" BUFFERS DO NOT. 

(3) BUFFERS ARE ALWAYS AN INTEGRAL NUMBER OF PAGES IN LENGTH 

(4) BUFFERS ALWAYS RESIDE IN THE 32K BANK MEMORY REGION, 
A LIMITATION OF FIND. SEG (MEMORY MANAGER) 

(5) MAXIMUM NUMBER OF BUFFERS = 16; ENTRY IS NOT USED. 





REP 


60 


* BUFFER TABLE 

* 






BUF. SIZ 


EQU 


5 


BUF . CNT 


EQU 


17 


BUF . TBL 


DS 


BUF.SIZ*BUF.CNT 


PGCT.T 


EQU 


BUF . TBL 


XBYTE . T 


EQU 


PGCT . T+BUF . CNT 


ADRH . T 


EQU 


XBYTE . T+BUF . CNT 


SEG.T 


EQU 


ADRH . T+BUF . CNT 


ADRL . T 


EQU 


SEG.T 


CHK.T 


EQU 


ADRL . T+BUF . CNT 


ISFIXED 


EQU 


$40 


ISFREE 


EQU 


$80 



* BUFFER REFERENCE TABLE 
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005326 










005327 


* 


FIRST BYTE IS COUNT, FOLLOWED BY "COUNT" 


BUFFER #S. 


005328 


* 


THIS TABLE IS A LIST OF ALL BUFFERS REFERENCED DURING ONE 


005329 


* 


SOS SYSTEM CALL. BUFFER 


#S ARE ADDED TO 


THIS LIST BY 


005330 


* 


GETBUFADR AND REMOVED BY 


CHKSUM. 




005331 










005332 


BUFREF . CNT EQU 


17 




005333 


BUFREF DS 


BUFREF . CNT 




005334 


ZPAGEX DS 


1 




005335 




PAGE 






005336 




REP 


60 




005337 










005338 


* 


REQBUF 






005339 










005340 




INPUT : PAGE . CNT (A) 






005341 




OUTPUT: BUFNUM (A) 






005342 




ERROR: "BUFFER TABLE FULL" - SYSERR 




005343 


* 


"OUT OF MEMORY" 


- SYSERR 




005344 




"BAD BUFFER SIZE 


- SYSDEATH 




005345 


* 








005346 




THIS ROUTINE FINDS A FREE ENTRY IN THE BUFFER TABLE 


005347 


* 


AND THEN CALLS FIND . SEG 


(MMGR) TO OBTAIN 


MEMORY FOR IT. 


005348 




IF MEMORY IS FOUND THEN 


THE BUFFER ENTRY 


IS MARKED "ACTIVE" 


005349 




AND THE BUFFER INFO IS INSERTED INTO THE 


ENTRY 


005350 


* 








005351 




REP 


60 




005352 










005353 


REQBUF EQU 






005354 










005355 




IF REQUESTED PGCT OUT OF 


BOUNDS THEN FATAL ERR 


005356 










005357 




TAY 






005358 




BEQ 


RQB . ERR2 


; FATAL ERR, INVALID 


005359 




CPY 


#MAXPGCT+1 




005360 




BCS 


RQB . ERR2 


; FATAL ERR, INVALID 


005361 




STY 


RQB. PGCT 


; SAVE PAGE COUNT 


005362 










005363 




FIND FREE ENTRY IN BUF . TBL 




005364 


* 








005365 




JSR 


GETFREE 




005366 




BCS 


RQB . ERR 


; ERR, BUFFER TABLE 


005367 




STX 


RQB . BNUM 




005368 


* 








005369 




FIND PGCT*256 BYTES OF FREE MEMORY 




005370 










005371 




LDA 


RQB. PGCT 




005372 




JSR 


FSEG 




005373 




BCS 


RQB . ERR1 


; ERR, OUT OF MEMORY 


005374 


★ 








005375 


★ 


INSERT PGCT, XBYTE, ADRH 


, SEG#, CHK BYTE 


IN BUF . TBL (BUF# ) 
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005376 














005377 




LDX 




RQB . BNUM 






005378 




DEC 




RQB.PGCT 




PAGE COUNT FIELD 


005379 




LDA 




RQB.PGCT 






005380 




STA 




PGCT.T,X 






005381 














005382 




LDX 




F . BASEX 




XBYTE & ADRH FIELDS 


005383 




LDY 




F.BASEX+1 






005384 




JSR 




CNVRT.ADR 






005385 




CPX 




#$8F 






005386 




BNE 




RQB010 






005387 




LDX 




#$7F 




IF XBYTE=$8F THEN XBYTE : = 


005388 


RQB010 TXA 










005389 




LDX 




RQB . BNUM 






005390 




STA 




XBYTE . T, X 






005391 




TYA 










005392 




STA 




ADRH . T , X 






005393 














005394 




LDA 




F.NUMX 




SEG# FIELD 


005395 




STA 




SEG.T,X 






005396 














005397 




LDA 




#0 




INIT CHECK BYTE TO NULL 


005398 




STA 




CHK.T,X 






005399 














005400 




TXA 








RETURN BUF# 


005401 




CLC 










005402 




RTS 








NORMAL EXIT 


005403 














005404 


* 












005405 


RQB . ERR LDA 




#BUFTBLFULL 






005406 




JSR 




SYSERR 






005407 


* 












005408 


RQB . ERR1 LDA 




#OUTOFMEM 






005409 




JSR 




SYSERR 






005410 














005411 


RQB . ERR2 LDA 




#BADBUFSIZ 






005412 




JSR 




SYSDEATH 






005413 




PAGE 










005414 




REP 




60 






005415 














005416 


* 


REQFXBUF 










005417 














005418 




INPUT: PAGE . CNT (A) 










005419 


* 


OUTPUT: BUFNUM (A) 










005420 


* 


ERROR: "BUFFER TABLE 


FULL" 


- SYSERR 




005421 


* 


"BAD SYSTEM. BUF 


PARM ADDRESS" 


- SYSERR 




005422 




"BAD BUFFER SIZE 


ii 


- SYSDEATH 


005423 














005424 


* 


THIS ROUTINE COMPUTES 


THE ACTUAL BUFFER ADDRESS 


IN THE OPEN 


005425 




CALL (PARM "OPEN. LIST 


'), 


AND ALLOCATES 


A BUFFER 


ENTRY FOR IT. 
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005426 


* NOTE: THE SYSBUF PARAMETER MUST BE 


AN EXTENDED 


INDIRECT PTR! ! 


005427 








005428 


REP 60 






005429 








005430 


REQFXBUF EQU * 






005431 


* 






005432 


* IF REQUESTED PGCT OUT OF BOUNDS THEN FATAL ERR 




005433 








005434 


TAY 






005435 


BEQ RQFB . ERR2 


i 


FATAL ERR, BAD BUFFER SIZE 


005436 


CPY #MAXPGCT+1 






005437 


BCS RQFB . ERR2 


t 


FATAL ERR, BAD BUFFER SIZE 


005438 


* 






005439 


STY RQFB. PGCT 


r 


SAVE PAGE COUNT 


005440 








005441 


* GET A FREE BUFFER ENTRY 






005442 


* 






005443 


JSR GETFREE 






005444 


BCS RQFB . ERR 


r 


ERR, BUFFER TABLE FULL 


005445 


STX RQFB.BNUM 


r 


SAVE BUF# 


005446 








005447 


* FETCH SYSTEM. BUF PARAMETER IN OPEN SYSTEM CALL 




005448 








005449 


LDY #3 






005450 


LDA (OPEN. LIST) ,Y 




005451 


BNE RQFB . ERR1 


r 


ERR, SYSBUF ADR 


005452 


DEY 






005453 


LDA (OPEN. LIST) , Y 




005454 


TAY 






005455 


LDA CXPAGE+1,Y 






005456 


BPL RQFB . ERR1 


r 


ERR, SYSBUF ADR 


005457 


CMP #$8F 






005458 


BCS RQFB . ERR1 


r 


ERR, SYSBUF ADR 


005459 


* 






005460 


* INSERT XBYTE, ADRH, ADRL, PGCT, CHK 


BYTE INTO BUF . TBL (BUF#) 


005461 








005462 


LDX RQFB . BNUM 






005463 


STA XBYTE. T,X 






005464 


* 






005465 


LDA CZPAGE+1,Y 






005466 


BEQ RQFB . ERR1 


r 


ERR SYSBUF ADR 


005467 


CMP #$81 


r 


CHECK FOR ADDRESS COMPENSATION 


005468 


BCC RQFB010 






005469 


INC XBYTE. T,X 






005470 


AND #$7F 






005471 


RQFB010 STA ADRH . T , X 






005472 








005473 


LDA CZPAGE,Y 






005474 


STA ADRL . T , X 






005475 
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005476 






DEC 


RQFB . PGCT 




005477 






LDA 


RQFB . PGCT 




005478 






ORA 


#ISFIXED 




005479 






STA 


PGCT.T,X 


; BUFFER ENTRY NOW "ACTIVE" 


005480 












005481 






LDA 


#0 


; INIT CHECK BYTE TO NULL 


005482 






STA 


CHK.T,X 




005483 












005484 






TXA 




; RETURN BUF# 


005485 






CLC 






005486 






RTS 




; NORMAL EXIT 


005487 












005488 


RQFB . ERR 


LDA 


#BUFTBLFULL 




005489 






JSR 


SYSERR 




005490 












005491 


RQFB . ERR1 


LDA 


#BADSYSBUF 




005492 






JSR 


SYSERR 




005493 












005494 


RQFB . ERR2 


LDA 


#BADBUFSIZ 




005495 






JSR 


SYSDEATH 




005496 






PAGE 






005497 






REP 


60 




005498 












005499 


* 


GETBUFADR 






005500 












005501 




INPUT : 


BUFNUM (A) 






005502 


* 




ZPAGELOC (X) 






005503 




OUTPUT : 


BUF ADR AT: 


X,X+1 & SXPAGE+1,X 




005504 


* 




PAGE . CNT (A) 






005505 


* 




BUFNUM (Y) 






005506 












005507 


* 


ERROR: 


"BADBUFNUM" 


SYSDEATH 




005508 












005509 






REP 


60 




005510 


* 










005511 


GETBUFADR 


EQU 


* 




005512 


* 










005513 




IF BUF# 


OUT OF RANGE 


OR BUF . TBL ( BUF # ) =FREE 




005514 


* 


THEN FATAL ERR 






005515 












005516 






TAY 






005517 






BEQ 


GTBF . ERR 


; BUF#=0, FATAL ERR 


005518 






CPY 


#BUF . CNT 




005519 






BCS 


GTBF . ERR 


; BUF# > MAX BUF TABLE ENTRY, FATAL ERR 


005520 






LDA 


PGCT . T, Y 




005521 






BMI 


GTBF . ERR 


; BUF ENTRY MARKED "FREE", FATAL ERR 


005522 












005523 




OTHERWISE, CONSTRUCT 


BUFFER PTR ON SOS ZPAGE 




005524 


★ 










005525 






JSR 


GETBUFADR1 
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005526 










005527 


* IF BUFFER NOT PREVIOUSLY REFERENCED ON 


THIS SOS 


CALL AND CHECK BYTE <> 


005528 


* THEN COMPARE FIRST BYTE OF BUFFER WITH CHECK 


BYTE IN BUFFER TABLE. 


005529 


* IF NO MATCH 


THEN KILL SYSTEM. 






005530 










005531 


STX 


ZPAGEX 






005532 


TYA 








005533 


LDX 


BUFREF 






005534 


BEQ 


GTBF020 




BUFREF EMPTY 


005535 










005536 


GTBF010 CMP 


BUFREF, X 




SEARCH FOR PREVIOUS REFERENCE 


005537 


BEQ 


GTBF030 




MATCH FOUND 


005538 


DEX 








005539 


BNE 


GTBF010 






005540 


* 








005541 


GTBF020 INC 


BUFREF 




LOG BUF # IN BUFREF TABLE 


005542 


LDX 


BUFREF 






005543 


CPX 


#BUFREF . CNT 






005544 


BCS 


GTBF . ERR 




BUFREF TABLE OVFLOW, KILL SYSTEM 


005545 


STA 


BUFREF, X 






005546 










005547 


LDA 


CHK.T, Y 






005548 


BEQ 


GTBF030 




NO CHECK BYTE, SKIP CHECK 


005549 


LDX 


ZPAGEX 






005550 


LDA 


($0,X) 




COMPARE FIRST BYTE OF BUFFER 


005551 


CMP 


CHK.T, Y 




WITH CHECK BYTE IN BUF TABLE 


005552 


BNE 


GTBF . ERR 




NO MATCH, PULL THE PLUG 


005553 










005554 


* RETURN PAGE . CNT TO 


CALLER 






005555 










005556 


GTBF030 LDA 


PGCT.T, Y 






005557 


AND 


#$3F 




STRIP OFF FREE, FIXED FLAGS 


005558 


CLC 








005559 


ADC 


#1 






005560 










005561 


CLC 








005562 


RTS 








005563 










005564 










005565 


GTBF . ERR LDA 


#BADBUFNUM 






005566 


JSR 


SYSDEATH 






005567 


* 








005568 










005569 


REP 


60 






005570 










005571 


* GETBUFADR1 








005572 










005573 


* INPUT: PGCT.T(BUF#) 


(A) 






005574 


* ZPAGELOC 


(X) 






005575 


* BUF# 


(Y) 







Apple / // Sophisticated Operating System (SOS) 1.3 Source Code Listing » PTC 8/ 2001 » Page 121 of 391 



005576 


* ERROR: NONE. 






005577 








005578 


* EXTRACTS THE BUFFER POINTER FROM THE BUFFER TABLE AND 


005579 


* PLACES IT ON ZERO PAGE 


AT X, X+l & SXPAGE+1,X 




005580 








005581 


REP 


60 




005582 








005583 


GETBUFADR1 EQU 


* 




005584 


AND 


#$40 




005585 


BNE 


GTB1010 




005586 


LDA 


#0 


; "FIXED" BUFFER 


005587 


BEQ 


GTB1020 


; ALWAYS TAKEN 


005588 


GTB1010 LDA 


ADRL.T, Y 


; "FLOATING" BUFFER 


005589 


GTB1020 STA 


o,x 




005590 


LDA 


ADRH.T, Y 




005591 


STA 


1,X 




005592 


LDA 


XBYTE.T, Y 




005593 


ORA 


#$80 


; ENSURE $7F->$8F 


005594 


STA 


SXPAGE+1,X 




005595 


RTS 






005596 


PAGE 






005597 


REP 


60 




005598 








005599 


* CHKBUF 






005600 


* 






005601 


* CHECK BUFFER. FETCHES 


THE FIRST BYTE OF EACH 


BUFFER 


005602 


* REFERENCED DURING THE 


CURRENT SYSTEM CALL AND 


PLACES IT 


005603 


* IN CHK.T (BUF#) . 






005604 








005605 


* INPUT: BUFREF TABLE 






005606 


* BUFFER TABLE 






005607 


* OUTPUT: EMPTY BUFREF TABLE 




005608 


* BUFFER TABLE'S 


CHECK BYTES UPDATED 




005609 


* Z REG:=$18 






005610 


* ERROR: NONE. 






005611 








005612 


REP 


60 




005613 








005614 


CHKBUF EQU 






005615 


LDY 


BUFREF 


; PICK UP COUNT 


005616 


BEQ 


CHKB . EXIT 


; EXIT IF BUFREF EMPTY 


005617 








005618 


LDA 


#$18 


; ENSURE SOS ZPAGE SWITCHED 


005619 


STA 


Z.REG 




005620 








005621 


* UPDATE THE CHECK BYTE 


OF EACH BUF# IN THE BUFREF TABLE 


005622 








005623 


CHKB010 LDX 


#> SOURCE 




005624 


LDA 


BUFREF, Y 




005625 


TAY 







Apple/// Computer I nformation 



IN 
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005626 




LDA 


PGCT.T, Y 


005627 




JSR 


GETBUFADR1 


005628 




LDA 


($0,X) 


005629 




STA 


CHK.T, Y 


005630 




DEC 


BUFREF 


005631 




LDY 


BUFREF 


005632 




BNE 


CHKB010 


005633 


* 






005634 


CHKB . EXIT RTS 




005635 




PAGE 




005636 




REP 


60 


005637 








005638 


* 


RELBUF 




005639 


* 






005640 




INPUT : BUFNUM (A) 




005641 




OUTPUT: NONE. 




005642 




ERROR: "BADBUFNUM" SYSDEATH 


005643 








005644 


* 


THIS ROUTINE RELEASES 


THE BUFFER ENTRY, CALLS 


005645 




RELEASE THE CORRESPONDING MEMORY SEGMENT, AND 


005646 


* 


BUFCOMPACT TO PERFORM 


BUFFER COMPACTION. 


005647 








005648 




REP 


60 


005649 








005650 


RELBUF EQU 




005651 


* 






005652 


* 


IF BUF# OUT OF RANGE OR BUF . TBL ( BUF # ) =FREE 


005653 




THEN FATAL ERR 




005654 


* 






005655 




TAY 




005656 




BEQ 


RLBF . ERR 


005657 




CPY 


#BUF . CNT 


005658 




BCS 


RLBF . ERR 


005659 




LDA 


PGCT.T, Y 


005660 




BMI 


RLBF . ERR 


005661 








005662 




MARK BUF . TBL ( BUF # ) =FREE 


005663 


* 






005664 




ORA 


#ISFREE 


005665 




STA 


PGCT.T, Y 


005666 


* 






005667 




IF BUF . TBL (BUF# ) =FIXED THEN EXIT 


005668 








005669 




AND 


#ISFIXED 


005670 




BNE 


RLBF. EX IT 


005671 








005672 


* 


OTHERWISE CALL MEMORY 


MGR TO RELEASE BUFFER'S 


005673 


* 






005674 




LDA 


#RELSEG 


005675 




STA 


REQCODE 



; PUT BUF#S ADR ON ZPAGE 

; IF COUNTOO THEN PROCESS NEXT BUF# IN BUFREF TABLE 
; BUFREF TABLE IS EMPTY (COUNT=0) 
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005676 










005677 






LDA 


SEG.T, Y 


005678 






STA 


RLS . NUM 


005679 










005680 






JSR 


MMGR 


005681 






BCS 


RLBF. ERR ; ANY ERR IS FATAL 


005682 










005683 


* 


AND COMPACT 


BUFFERS 




005684 










005685 






JSR 


BUFCOMPACT 


005686 


* 








005687 


RLBF . EXIT 


CLC 




005688 






RTS 




005689 










005690 


RLBF . ERR 


LDA 


#BADBUFNUM 


005691 






JSR 


SYSDEATH 


005692 






PAGE 




005693 






REP 


60 


005694 


* 








005695 


* 


BUFCOMPACT 






005696 










005697 


* 


THIS ROUTINE IS RESPONSIBLE FOR PACKING ALL SOS BUFFERS UP 


005698 




AGAINST THE 


HIGHEST 


AVAILABLE FREE MEMORY. COULD IMPROVE THE 


005699 


* 


EFFICIENCY OF THIS 


COMPACTION CYCLE BY NOT RELEASING THE "RELEASED" 


005700 


* 


UNTIL IT IS 


KNOWN THAT ANOTHER BUFFER WILL NOT BE MOVED INTO ITS LOC 


005701 










005702 






REP 


60 


005703 










005704 


BUFCOMPACT 


EQU 




005705 


* 








005706 




FIND THE FLOATING BUFFER IN BUF . TBL WITH THE LOWEST ADDRESS. 


005707 


* 








005708 


BUFC010 


LDY 


#0 


005709 






LDX 


#BUF.CNT-1 


005710 










005711 


BUFC020 


LDA 


PGCT.T,X 


005712 






AND 


#$C0 ; STRIP OUT PAGE COUNT 


005713 






BNE 


BUFC030 


005714 










005715 






LDA 


ADRH . T, X 


005716 






CMP 


ADRH.T, Y 


005717 






LDA 


XBYTE . T, X 


005718 






SBC 


XBYTE.T, Y 


005719 






BCS 


BUFC030 


005720 










005721 






TXA 


; SMALLER BUFFER FOUND 


005722 






TAY 




005723 


* 








005724 


BUFC030 


DEX 




005725 






BNE 


BUFC020 



Apple /// Sophisticated Operating System (SOS) 1.3 Source Code Listing » PTC 8/ 2001 » Page 124 of 391 



Apple/// Computer I nformation 



005726 






005727 


* IF NO BUFFER FOUND 


THEN DONE 


005728 


* 




005729 


TYA 




005730 


BNE 


BUFC040 


005731 


JMP 


BUFC.EXIT 


005732 


BUFC040 STY 


BUFC.BNUM ; OTHERWISE 


005733 


* 




005734 


* CALL FIND . SEG : FINDS HIGHEST AVAILABLE FREE MEMORY 


005735 






005736 


LDA 


PGCT.T, Y 


005737 


AND 


#$3F ; STRIP OUT 


005738 


CLC 




005739 


ADC 


#1 


005740 


JSR 


FSEG 


005741 


BCS 


BUFC.EXIT ; DONE IF NO 


005742 






005743 


* CONVERT BASE . BKPG 


TO BUFFER ADR 


005744 






005745 


LDX 


F.BASEX ; BASE BANK 


005746 


LDY 


F.BASEX+1 ; BASE PAGE 


005747 


JSR 


CNVRT.ADR 


005748 


STX 


F.BASEX ; XBYTE 


005749 


STY 


F.BASEX+1 ; ADRH 


005750 






005751 


* IF NEW SEG'S BASE 


< CURRENT BUFFER'S BASE ADR THEN DONE 


005752 






005753 


LDY 


BUFC . BNUM 


005754 


LDA 


ADRH . T, Y 


005755 


STA 


SOURCE+1 


005756 


CMP 


F.BASEX+1 


005757 


LDA 


XBYTE. T, Y 


005758 


STA 


SXPAGE+SOURCE+1 


005759 


SBC 


F . BASEX 


005760 


BCS 


BUFC.EXIT1 


005761 






005762 


* MOVE DATA FROM CURRENT BUFFER TO NEW BUFFER 


005763 






005764 


LDX 


F . BASEX 


005765 


STX 


SXPAGE+DEST+1 


005766 


LDY 


F.BASEX+1 


005767 


STY 


DEST+1 


005768 


LDA 


#0 


005769 


STA 


SOURCE 


005770 


STA 


DEST 


005771 






005772 


TAY 




005773 


LDX 


F . PGCTX 


005774 


BUFC200 LDA 


( SOURCE ),Y ; MOVE LOOP 


005775 


STA 


(DEST) , Y 



'FREE", "FIXED" FLAGS 
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005776 


DEY 




005777 


BNE 


BUFC200 


005778 


INC 


SOURCE+1 


005779 


INC 


DEST+1 


005780 


DEX 




005781 


BNE 


BUFC200 


005782 






005783 


* UPDATE BUF . TBL (BUF#) 




005784 






005785 


LDY 


BUFC . BNUM 


005786 


LDA 


F . BASEX 


005787 


STA 


XBYTE.T, Y 


005788 


LDA 


F.BASEX+1 


005789 


STA 


ADRH.T, Y 


005790 


* 




005791 


LDX 


SECT, Y 


005792 


LDA 


F.NUMX 


005793 


STA 


SECT, Y 


005794 






005795 


* AND RELEASE OLD MEMORY 


SEGMENT 


005796 






005797 


STX 


RLS . NUM 


005798 


LDA 


#RELSEG 


005799 


STA 


REQCODE 


005800 


JSR 


MMGR 


005801 


BCS 


BUFC . ERR 


005802 






005803 


JMP 


BUFC010 


005804 






005805 






005806 


BUFC.EXIT1 LDX 


F.NUMX 


005807 


STX 


RLS . NUM 


005808 


LDA 


#RELSEG 


005809 


STA 


REQCODE 


005810 


JSR 


MMGR 


005811 


BCS 


BUFC . ERR 


005812 






005813 


BUFC.EXIT LDA 


#0 


005814 


STA 


SERR 


005815 


CLC 




005816 


RTS 




005817 






005818 






005819 


BUFC . ERR LDA 


#BADBUFNUM 


005820 


JSR 


SYSDEATH 


005821 


PAGE 




005822 


REP 


60 


005823 






005824 


* FSEG 




005825 







; REPEAT COMPACTION CYCLE 



; DONE, 

; RELEASE SEG BEFORE EXIT 



; MASK OUT ANY ERROR FROM MEMORY MGR 
; NORMAL EXIT 
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005826 
005827 
005828 
005829 
005830 
005831 
005832 
005833 
005834 
005835 
005836 
005837 
005838 
005839 
005840 
005841 
005842 
005843 
005844 
005845 
005846 
005847 
005848 
005849 
005850 
005851 
005852 
005853 
005854 
005855 
005856 
005857 
005858 
005859 
005860 
005861 
005862 
005863 
005864 
005865 
005866 
005867 
005868 
005869 
005870 
005871 
005872 
005873 
005874 
005875 



INPUT : PAGE . CNT (A) 

OUTPUT: PAGE. CNT (A) UNCHANGED IF FIND . SEG SUCCESSFUL 

ERROR: CARRY SET "UNABLE TO FIND MEMORY SEG OF PAGE.CNT*25 6 BYTES" 

THIS ROUTINE BUILDS THE PARAMETERS FOR A FIND. SEG SYSTEM CALL 
AND THEN CALLS THE MEMORY MANAGER. 



FSEG 



REP 



EQU 



60 



* SETUP INPUT PARAMETERS FOR FIND. SEG CALL 



STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 



F . PGCTX 
#FINDSEG 
REQCODE 
#2 

SRCHMODE 
#4 

F. ID 



SETUP OUTPUT PARAMETER ADRESSES 



LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 

LDA 
STA 
STA 
STA 
STA 
STA 

JSR 
LDA 



#>F. PGCTX 

F.PGCT 

#<F. PGCTX 

F.PGCT+1 

#>F.BASEX 

F . BASE 

#<F.BASEX 

F.BASE+1 

#>F.LIMX 

F.LIM 

#<F.LIMX 

F.LIM+1 

#>F.NUMX 

F.NUM 

#<F.NUMX 

F.NUM+1 

#0 

F.PGCTX+1 

SXPAGE+F.PGCT+1 

SXPAGE+F.BASE+1 

SXPAGE+F.LIM+1 

SXPAGE+F.NUM+1 

MMGR 

F . PGCTX 
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005876 




RTS 




005877 




PAGE 




005878 




REP 


60 


005879 








005880 




GETFREE 




005881 








005882 




INPUT : NONE 




005883 


* 


OUTPUT: BUF# (X) 




005884 


* 


ERROR: "BUFTBLFULL 


" SYSERR 


005885 


★ 






005886 




THIS ROUTINE SEARCHES THE BUFFER TABLE, 


005887 




ENTRY. IF FOUND, IT RETURNS THE BUFFER 


005888 


* 






005889 




REP 


60 


005890 








005891 


GETFREE EQU 


* 


005892 




LDX 


#BUF.CNT-1 


005893 


GFR010 LDA 


PGCT.T,X 


005894 




BMI 


GFR.EXIT 


005895 




DEX 




005896 




BNE 


GFR010 


005897 


* 






005898 




LDA 


#BUFTBLFULL 


005899 




JSR 


SYSERR 


005900 


* 






005901 


GFR.EXIT CLC 




005902 




RTS 




005903 




PAGE 




005904 




REP 


60 


005905 








005906 




CNVRT.ADR 




005907 


* 






005908 




INPUT: BANK VALUE 


(X) 


005909 


* 


PAGE VALUE 


(Y) 


005910 




OUTPUT: XBYTE (X) 




005911 


* 


ADRH (Y) 




005912 


* 


ERROR: NONE. 




005913 


* 






005914 




THIS ROUTINE CONVERTS A BASE . BKPG PARM 


005915 


* 


VIRTUAL POINTER 




005916 


* 






005917 




REP 


60 


005918 








005919 


CNVRT.ADR EQU 




005920 








005921 


* 


IF PAGE <> $20 THEN 


GOTO L2 


005922 


* 






005923 




CPY 


#$20 


005924 




BNE 


CNVA020 


005925 









; EXIT. CARRY SET->ERR 



FREE ENTRY FOUND 



ERR EXIT 



NORMAL EXIT 
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005926 
005927 
005928 
005929 
005930 
005931 
005932 
005933 
005934 
005935 
005936 
005937 
005938 
005939 
005940 
005941 
005942 
005943 
005944 
005945 
005946 
005947 
005948 
005949 
005950 
005951 
005952 
005953 
005954 
005955 
005956 
005957 
005958 
005959 
005960 
005961 
005962 
005963 
005964 
005965 
005966 
005967 
005968 
005969 
005970 



* IF BANK <> THEN GOTO LI 

TXA 
BNE 



XBYTE=$8F 
ADRH : =PAGE 



LDX 
BMI 



CNVA010 



#$8F 

CNVA.EXIT 



LI: XBYTE : = (BANK— 1 ) ORA #$80 
ADRH: =#$80 



CNVA010 ORA 
TAX 
DEX 
LDY 
BMI 

* L2: XBYTE :=BANK ORA #$80 

* ADRH : =ADRH-#$20 



#$80 



#$80 

CNVA.EXIT 



CNVA020 



CNVA.EXIT 



ZZEND 
ZZLEN 



TXA 
ORA 
TAX 
SEC 
TYA 
SBC 
TAY 

RTS 

LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



#$80 



#$20 



ON 

ZZEND-ZZORG 
ZZLEN-LENBUFMG 
2, "SOSORG 



FILE IS INCORRECT FOR BUFMGR" 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: BUFMGR. SRC 

************************************************************************* 
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005971 
005972 
005973 
005974 
005975 
005976 
005977 
005978 
005979 
005980 
005981 
005982 
005983 
005984 
005985 
005986 
005987 
005988 
005989 
005990 
005991 
005992 
005993 
005994 
005995 
005996 
005997 
005998 
005999 
006000 
006001 
006002 
006003 
006004 
006005 
006006 
006007 
006008 
006009 
006010 
006011 
006012 
006013 
006014 
006015 
006016 
006017 
006018 
006019 



DOCUMENT : SOS1 . 3 . 2of 5 . TWO : SOS . CRMGR. TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: CFMGR.SRC 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



ZZORG 



SBTL 
REL 

INCLUDE 

ORG 

EQU 

MSB 

REP 

COPYRIGHT (C) 
ALL 

REP 



"SOS 1.1 CHARACTER FILE MANAGER" 

SOSORG, 6, 1, 254 
ORGCFM 



OFF 
60 

APPLE COMPUTER INC. 
RIGHTS RESERVED 

60 



1980 



CHARACTER FILE MANAGER (VERSION =1.10 ) 

(DATE = 8/04/81) 

THIS MODULE TRANSFORMS CHARACTER FILE SYSTEM CALLS INTO 
DEVICE CALLS TO THE APPROPRIATE DEVICE HANDLER. ONLY 
OPEN, NEWLINE, READ, WRITE AND CLOSE CALLS ARE PERMITTED 
ON CHARACTER FILES. 



REP 

ENTRY 

ENTRY 
ENTRY 

EXTRN 
EXTRN 
EXTRN 
EXTRN 

EXTRN 

EXTRN 

EXTRN 

EXTRN 

EXTRN 

EXTRN 

PAGE 

REP 



60 

CFMGR 

CFCB.MAX 
CFCB.DEV 

DMGR 
LEVEL 
MAX . DNUM 
SXPAGE 

SYSERR 
SERR 

BADSCNUM 
CFCBFULL 
BADREFNUM 
FNFERR 

60 
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006020 


* DATA DECLARATIONS 






006021 










006022 




REP 


60 




006023 










006024 


* FILE CALL PARM LOCATIONS 


ON SOS ZPAGE 




006025 










006026 


F . TPARMX 


EQU 


$A0 




006027 


REQCODE 


EQU 


F . TPARMX 




006028 


O . PATH 


EQU 


F . TPARMX+1 


; OPEN'S PATHNAME LOC 


006029 


O . REFNUM 


EQU 


F . TPARMX+3 


; OPEN'S REFNUM LOC 


006030 


REFNUM 


EQU 


F . TPARMX+1 


; REFNUM 'S LOC IN OTHER CALLS 


006031 


NL. ISNL 


EQU 


F . TPARMX+2 


; NEWLINE 'S ISNEWLINE LOC 


006032 


NL . NLCHR 


EQU 


F . TPARMX+3 


; NEWLINE 'S NEWLINECHAR LOC 


006033 


RW.BUF 


EQU 


F . TPARMX+2 


; READ /WRITE ' S BUF LOC 


006034 


RW. BYTES 


EQU 


F . TPARMX+4 


; READ/WRITE' S BYTES LOC 


006035 


RD . BYTESRD 


EQU 


F.TPARMX+6 


; READ'S BYTESREAD LOC 


006036 










006037 


* FILE REQUEST 


CODE VALUES 






006038 










006039 


OPEN 


EQU 


8 




006040 


NEWLINE 


EQU 


9 




006041 


READ 


EQU 


$A 




006042 


WRITE 


EQU 


$B 




006043 


CLOSE 


EQU 


$C 




006044 




PAGE 






006045 


* DEVICE CALL 


PARM LOCATIONS ON SOS ZPAGE 




006046 










006047 


D. TPARMX 


EQU 


$C0 




006048 


D . SCNUM 


EQU 


D. TPARMX 


; DEVICE SYS CALL # LOC 


006049 


GDN . DNAME 


EQU 


D . TPARMX+1 


; GETDEVNUM DNAME LOC 


006050 


GDN . DNUM 


EQU 


D . TPARMX+3 


; GETDEVNUM DNUM LOC 


006051 


D . DNUM 


EQU 


D . TPARMX+1 


; OPN/CLOSE/RD/WR/CTRL' S DNUM 


006052 


DRW . BUF 


EQU 


D . TPARMX+2 


; RD/WR'S BUF LOC 


006053 


DRW. BYTES 


EQU 


D . TPARMX+4 


; RD/WR'S BYTES LOC 


006054 


DRD. BYTESRD 


EQU 


D . TPARMX+8 


; RD/WR'S BYTESREAD LOC 


006055 


DC.CCODE 


EQU 


D . TPARMX+2 


; DCTRL 'S CTRLCODE LOC 


006056 


DC.CLIST 


EQU 


D . TPARMX+3 


; DCTRL 'S CTRLLIST LOC 


006057 










006058 


* DEVICE REQUEST CODE VALUES 




006059 










006060 


DREAD 


EQU 


$0 




006061 


DWRITE 


EQU 


$1 




006062 


DCTRL 


EQU 


$3 




006063 


GETDEVNUM 


EQU 


$4 




006064 


DOPEN 


EQU 


$6 




006065 


DCLOSE 


EQU 


$7 




006066 










006067 


CTRL. LIST 


DS 


2 


; CONTAINER FOR NEWLINE DCTRL 


006068 


NEWLINECC 


EQU 


2 


; NEWLINE CTRL CODE 


006069 
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006070 * GETDNUM VARS 



006071 










006072 


DNUM.TEMP 




DS 


1 


006073 










006074 


* CLOSEALL 


VARS 






006075 










006076 


DCLOSE . ERR 




EQU 


F . TPARMX+$F 


006077 


DCLOSE . TBL 




EQU 


$200 


006078 


TRUE 




EQU 


$80 


006079 


FALSE 




EQU 


$0 


006080 










006081 










006082 






REP 


60 


006083 


* 








006084 


* CHARACTER 


FILE CONTROL BLOCK TABLE 


006085 


* (ENTRY 


IS NOT USED) 




006086 










006087 






REP 


60 


006088 


CFCB.MAX 




EQU 


17 


006089 


CFCB . DEV 




DS 


CFCB.MAX 


006090 


CFCB . LVL 




DS 


CFCB.MAX 


006091 






PAGE 




006092 






REP 


60 


006093 










006094 


* CHARACTER 


FILE MANAGER - 


MAIN ENTRY POINT 


006095 










006096 






REP 


60 


006097 


CFMGR 




EQU 




006098 










006099 


* SWITCH, BASED 


ON REQUEST 


CODE 


006100 










006101 






LDA 


REQCODE 


006102 






CMP 


#OPEN 


006103 






BEQ 


CFOPEN ; "OPEN" 


006104 






CMP 


#NEWLINE 


006105 






BEQ 


CFNEWLINE ; "NEWLINE" 


006106 






CMP 


#READ 


006107 






BEQ 


CFREAD ; "READ" 


006108 






CMP 


#WRITE 


006109 






BNE 


CFM010 


006110 






JMP 


CFWRITE ; "WRITE" 


006111 


CFM010 




CMP 


#CLOSE 


006112 






BNE 


CFM020 


006113 






JMP 


CFCLOSE ; "CLOSE" 


006114 


CFM020 




LDA 


#BADSCNUM 


006115 






JSR 


SYSERR ; ERR EXIT 


006116 






PAGE 




006117 






REP 


60 


006118 


* OPEN (IN. PATHNAME; OUT . REFNUM; IN . OPENLIST, LENGTH) SYSTEM 


006119 






REP 


60 
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006120 
006121 
006122 
006123 
006124 
006125 
006126 
006127 
006128 
006129 
006130 
006131 
006132 
006133 
006134 
006135 
006136 
006137 
006138 
006139 
006140 
006141 
006142 
006143 
006144 
006145 
006146 
006147 
006148 
006149 
006150 
006151 
006152 
006153 
006154 
006155 
006156 
006157 
006158 
006159 
006160 
006161 
006162 
006163 
006164 
006165 
006166 
006167 
006168 
006169 



CFOPEN 



CFOP.EXIT 



CFOP . ERR 



EQU 
JSR 
BCS 
STA 

JSR 
BCS 
LDX 
STA 
CPY 
BNE 

LDA 
STA 
JSR 
BCS 
RTS 



CFOP . ERR1 



LDA 
BEQ 
LDX 
LDA 
JSR 
RTS 
PAGE 
REP 

* NEWLINE (IN.REFNUM, IS 
REP 

CFNEWLINE EQU 
LDA 
STA 
LDA 
JSR 
BCS 

STA 
LDA 
STA 

LDA 
STA 
LDA 
STA 
LDA 
STA 

LDA 
STA 
LDA 
STA 



GETDNUM 
CFOP . ERR1 
D . DNUM 

REQ . CFCB 
CFOP . ERR1 
#0 

(O.REFNUM, X) 
#1 

CFOP.EXIT 

#DOPEN 
D . SCNUM 
DMGR 
CFOP . ERR 



SERR 

CFOP.EXIT 
#0 

(O.REFNUM, X) 
REL . CFCB 



BUILD "D.OPEN" CALL 
MAP PATH TO DEV# 
ERR - FILE NOT FOUND 



BUILD NEW CFCB ENTRY 
ERR - CFCB FULL 



RETURN REFNUM TO CALLER 
DEVICE ALREADY OPEN 



; DOPEN CALL 
; NORMAL EXIT 

; KLUDGE - 1.0 DRIVERS DON'T SUPPORT CARRY ERR PROTOCOL 
;NO ERROR 

; RELEASE CFCB ENTRY 
; ERR EXIT 



60 



60 



.NEWLINE, NEWLINE. CHAR) SYSTEM CALL 



#DCTRL 
D . SCNUM 
REFNUM 
GET . CFCB 
CFNL . ERR 

D . DNUM 
#NEWLINECC 
DC . CCODE 

#>CTRL.LIST 

DC.CLIST 

#<CTRL.LIST 

DC.CLIST+1 

#0 

SXPAGE+DC . CLIST+1 

NL. ISNL 
CTRL. LI ST 
NL . NLCHR 
CTRL.LIST+1 



BUILD "D. CONTROL" CALL 



; MAP REFNUM TO DEV # 
; ERR - BAD REFNUM 
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006170 * 



006171 




JSR 


DMGR 


r 


DCONTROL CALL 


006172 




RTS 




r 


NORMAL EXIT 


006173 












006174 


CFNL . ERR 


RTS 




r 


ERR EXIT 


006175 




PAGE 








006176 




REP 


60 






006177 


* READ ( IN . 


REFNUM, BUF, BYTES, BYTESREAD) SYSTEM CALL 




006178 




REP 


60 






006179 


CFREAD 


EQU 






BUILD "D .READ " CALL 


006180 




LDA 


#DREAD 






006181 




STA 


D . SCNUM 






006182 




LDA 


REFNUM 






006183 




JSR 


GET . CFCB 




MAP REFNUM TO DEV # 


006184 




BCS 


CFRD . ERR 




ERR - BAD REFNUM 


006185 












006186 




STA 


D . DNUM 






006187 




LDX 


#3 






006188 


CFRD010 


LDA 


RW.BUF,X 






006189 




STA 


DRW. BUF, X 






006190 




DEX 








006191 




BPL 


CFRD010 






006192 












006193 




LDA 


RD . BYTESRD 






006194 




STA 


DRD . BYTESRD 






006195 




LDA 


RD . BYTESRD+1 






006196 




STA 


DRD . BYTESRD+1 






006197 












006198 




LDA 


SXPAGE+RW.BUF+1 






006199 




STA 


SXPAGE+DRW.BUF+1 






006200 




LDA 


SXPAGE+RW.BYTES+1 






006201 




STA 


SXPAGE+DRW . BYTES+1 






006202 




LDA 


SXPAGE+RD . BYTESRD+1 






006203 




STA 


SXPAGE+DRD . BYTESRD+1 






006204 


* 










006205 




JSR 


DMGR 




DREAD CALL 


006206 




RTS 




r 


NORMAL EXIT 


006207 












006208 


CFRD . ERR 


RTS 




i 


ERR EXIT 


006209 




PAGE 








006210 




REP 


60 






006211 


* WRITE (IN 


. REFNUM, BUF 


BYTES) SYSTEM CALL 






006212 




REP 


60 






006213 


CFWRITE 


EQU 




r 


BUILD "D. WRITE" CALL 


006214 




LDA 


#DWRITE 






006215 




STA 


D . SCNUM 






006216 




LDA 


REFNUM 






006217 




JSR 


GET . CFCB 


r 


MAP REFNUM TO DEV # 


006218 




BCS 


CFWR.ERR 


r 


ERR - BAD REFNUM 


006219 




STA 


D . DNUM 
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006220 




LDX 


#3 






006221 


CFWR010 


LDA 


RW.BUF,X 






006222 




STA 


DRW.BUF,X 






006223 




DEX 








006224 




BPL 


CFWR010 






006225 




LDA 


SXPAGE+RW.BUF+1 






006226 




STA 


SXPAGE+DRW.BUF+1 






006227 




LDA 


SXPAGE+RW.BYTES+1 






006228 




STA 


SXPAGE+DRW . BYTE S + 1 






006229 


* 










006230 




JSR 


DMGR 




D WRITE CALL 


006231 




RTS 






NORMAL EXIT 


006232 


* 










006233 


CFWR.ERR 


RTS 






ERR EXIT 


006234 




PAGE 








006235 




REP 


60 






006236 


* CLOSE (IN. 


REFNUM) SYSTEM CALL 






006237 




REP 


60 






006238 


CFCLOSE 


EQU 






BUILD "D. CLOSE" CALL 


006239 




LDA 


#DCLOSE 






006240 




STA 


D . SCNUM 






006241 




LDA 


REFNUM 






006242 




BEQ 


CLOSEALL 






006243 


* 










006244 




JSR 


REL . CFCB 




RELEASE CFCB ENTRY 


006245 




BCS 


CFCL010 






006246 




STA 


D . DNUM 






006247 




TYA 








006248 




BNE 


CFCL010 






006249 




JSR 


DMGR 


i 


DCLOSE CALL 


006250 


CFCL010 


RTS 




i 


NORMAL EXIT 


006251 


* 










006252 




PAGE 








006253 




REP 


60 






006254 












006255 


* CLOSE ALL CHARACTER 


FILES W/LEVELS >= TO CURRENT SYSTEM FILE LEVEL. 


006256 


* 










006257 




REP 


60 






006258 












006259 


CLOSEALL 


EQU 








006260 




LDA 


#FALSE 


r 


SET ENTRIES IN DEV CLOSE TBL TO 


006261 




LDX 


MAX . DNUM 






006262 


CFCL020 


STA 


DCLOSE.TBL,X 






006263 




DEX 








006264 




BPL 


CFCL020 






006265 












006266 




LDX 


#CFCB.MAX-1 


r 


CLOSE ALL DEVICES >= TO CURRENT 


006267 


CFCL030 


LDA 


CFCB.DEV, X 


r 


AND MARK TRUE IN DEV CLOSE TBL 


006268 




TAY 








006269 




BMI 


CFCL050 
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006270 






LDA 


CFCB.LVL,X 


006271 






CMP 


LEVEL 


006272 






BCC 


CFCL050 


006273 






LDA 


#TRUE 


006274 






STA 


DCLOSE . TBL, Y 


006275 






SEC 




006276 






ROR 


CFCB . DEV, X 


006277 


CFCL050 




DEX 




006278 






BNE 


CFCL030 


006279 










006280 






LDX 


#CFCB.MAX-1 


006281 


CFCL060 




LDA 


CFCB. DEV, X 


006282 






TAY 




006283 






BMI 


CFCL070 


006284 






LDA 


#FALSE 


006285 






STA 


DCLOSE. TBL, Y 


006286 


CFCL070 




DEX 




006287 






BNE 


CFCL060 


006288 










006289 






LDA 


#0 


006290 






STA 


DCLOSE . ERR 


006291 






LDX 


MAX . DNUM 


006292 


CFCL080 




LDA 


DCLOSE. TBL, X 


006293 






BPL 


CFCL090 


006294 






TXA 




006295 






PHA 




006296 






STX 


D . DNUM 


006297 






JSR 


DMGR 


006298 






PLA 




006299 






TAX 




006300 






LDA 


SERR 


006301 






BEQ 


CFCL090 


006302 






STA 


DCLOSE . ERR 


006303 


CFCL090 




DEX 




006304 






BNE 


CFCL080 


006305 


* 








006306 






LDA 


DCLOSE . ERR 


006307 






BNE 


CFCL . ERR 


006308 






RTS 




006309 


CFCL . ERR 




JSR 


SYSERR 


006310 






PAGE 




006311 






REP 


60 


006312 










006313 


* GET DEVICE NUMBER 




006314 










006315 


* INPUT: 


CPATH 






006316 


* OUTPUT: 


DEVICE NUMBER (A) 


006317 


* ERROR: 


CARRY 


SET ( 


"FILE NOT FOUND") 


006318 










006319 


* GETDNUM 


FIRST 


CALLS 


THE DMGR (GETDEVNUM) 



; DON'T CLOSE DEVICES < CURRENT LEVEL 



; ISSUE D' CLOSE CALLS TO ALL DEVICES MARKED AS TRUE 
; IN DEV CLOSE TABLE 



; IF ERROR, 

; THEN SAVE IT 



; IF $0 THEN NO ERRORS FROM D . CLOSE CALLS 
; NORMAL EXIT 

; RETURN LAST D . CLOSE ERROR REPORTED 
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006320 




TO A DEVICE 


# 


GETDNUM 


THEN ENSURES THAT THE PATHNAME 


006321 




IS NOT A 


BLOCK DEVICE 


BY 


CHECKING THE DBLKLST TABLE. 


006322 


















006323 










REP 






60 


006324 


















006325 


GETDNUM 






EQU 








006326 










LDA 






#GETDEVNUM 


006327 










STA 






D . SCNUM 


006328 


* 
















006329 










LDA 






O . PATH 


006330 










STA 






GDN . DNAME 


006331 










LDA 






O.PATH+1 


006332 










STA 






GDN . DNAME+1 


006333 


* 
















006334 










LDA 






#>DNUM. TEMP 


006335 










STA 






GDN . DNUM 


006336 










LDA 






#<DNUM. TEMP 


006337 










STA 






GDN . DNUM+1 


006338 


* 
















006339 










LDA 






SXPAGE+O.PATH+1 


006340 










STA 






SXPAGE+GDN . DNAME+1 


006341 










LDA 






#0 


006342 










STA 






SXPAGE+GDN . DNUM+1 


006343 


* 
















006344 










JSR 






DMGR 


006345 










BCS 






GETD. ERR ; D . NAME NOT FOUND 


006346 










BMI 






GETD. ERR ; BLOCK DEVICE FOUND 


006347 










LDA 






DNUM. TEMP 


006348 










RTS 








006349 


* 
















006350 


GETD . ERR 






LDA 






#FNFERR 


006351 










JSR 






SYSERR 


006352 










PAGE 








006353 










REP 






60 


006354 


* 


REQUEST 


FCB 


ENTRY 








006355 


* 
















006356 


* 


INPUT: DNUM 


(A) 








006357 


* 


OUTPUT : 


REFNUM (A) , 


OPENCT (Y) 


006358 




ERROR: 


CARRY 


SET ( 


"CFCB 


FULL") 


006359 


















006360 


* 


REQ . CFCB 


FIRST SEARCHES 


THE CFCB TABLE USING THE DEV# 


006361 


* 


AS A KEY 


. IF 


FOUND 


THE 


OPENCT IS INCREMENTED, OTHERWISE, 


006362 


* 


REQ . CFCB 


FINDS A FREE 


ENTRY AND STORES THE DEV# AND LEVEL #. 


006363 


















006364 










REP 






60 


006365 


* 
















006366 


REQ.CFCB 






EQU 








006367 










LDX 






#CFCB.MAX-1 


006368 










TAY 








006369 


REQ010 






LDA 






CFCB . DEV, X 
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006370 




BMI 


006371 




DEX 


006372 




BNE 


006373 




LDA 


006374 




JSR 


006375 


REQ020 TYA 


006376 




STA 


006377 




LDA 


006378 




STA 


006379 




TXA 


006380 




PHA 


006381 




TYA 


006382 




JSR 


006383 




PLA 


006384 




ORA 


006385 




CLC 


006386 




RTS 


006387 




PAGE 


006388 




REP 


006389 






006390 




RELEASE FCB ENTRY 


006391 


* 




006392 


* 


INPUT: REFNUM (A) 


006393 


* 


OUTPUT : DNUM (A) , 


006394 


* 


ERROR: CARRY SET 


006395 


* 




006396 


* 


USES REFNUM AS AN C 


006397 






006398 




REP 


006399 


REL . CFCB EQU 


006400 




AND 


006401 




CMP 


006402 




BCS 


006403 




TAX 


006404 




LDA 


006405 




BMI 


006406 




SEC 


006407 




ROR 


006408 




JSR 


006409 




CLC 


006410 




RTS 


006411 


* 




006412 


REL . ERR LDA 


006413 




JSR 


006414 




REP 


006415 






006416 




OPENCOUNT SUBROUTI1N 


006417 






006418 


* 


INPUT : DEVNUM (A) 


006419 




OUTPUT : DEVNUM (A) 



REQ020 

REQ010 

#CFCBFULL 

SYSERR 

CFCB . DEV, X 

LEVEL 

CFCB.LVL,X 



OPENCOUNT 
#$80 

60 



; NORMAL EXIT 



60 

* 

#$7F 

#CFCB .MAX 
REL. ERR 

CFCB. DEV, X 
REL . ERR 

CFCB. DEV, X 
OPENCOUNT 



#BAD REFNUM 

SYSERR 

60 



; MARK ENTRY FREE 



; NORMAL EXIT 
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006420 
006421 
006422 
006423 
006424 
006425 
006426 
006427 
006428 
006429 
006430 
006431 
006432 
006433 
006434 
006435 
006436 
006437 
006438 
006439 
006440 
006441 
006442 
006443 
006444 
006445 
006446 
006447 
006448 
006449 
006450 
006451 
006452 
006453 
006454 
006455 
006456 
006457 
006458 
006459 
006460 
006461 
006462 
006463 
006464 
006465 
006466 
006467 
006468 
006469 



* OPENCTR:=COUNT OF ALL CFCB ENTRIES W/CFCB . DEV=DEVNUM 



OPENCOUNT 



OPNCT010 



OPNCT020 



REP 

EQU 

LDY 

LDX 

CMP 

BNE 

INY 

DEX 

BNE 

RTS 

PAGE 

REP 



60 
#0 

#CFCB.MAX-1 
CFCB.DEV, X 
OPNCT020 



OPNCT010 



60 



* GET FCB ENTRY 



INPUT : REFNUM (A) 
OUTPUT: DNUM (A) 

ERROR: CARRY SET ("INVALID REFNUM") 

USES REFNUM AS AN INDEX TO RETURN THE CORRESPONDING DEVICE #. 
IF THE ENTRY INDICATED BY REFNUM IS A FREE ENTRY, THEN AN 
ERROR, "INVALID REF NUM" IS RETURNED. 



GET. CFCB 



GET . ERR 



ZZEND 
ZZLEN 



REP 
EQU 
AND 
CMP 
BCS 
TAX 
LDA 
BMI 
CLC 
RTS 

LDA 
JSR 

LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



60 

#$7F 

#CFCB .MAX 
GET . ERR 

CFCB.DEV, X 
GET . ERR 



#BAD REFNUM 
SYSERR 

ON 
* 

ZZEND-ZZORG 
ZZLEN-LENCFM 
2, "SOSORG 



NORMAL EXIT 



ERR EXIT 



FILE IS INCORRECT FOR CFMGR" 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: CFMGR. SRC 

************************************************************************* 
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006472 














006473 


DOCUMENT :SOS1.3.2of5 


TWO: 


SOS . D3MAIN . 


TEXT 




















006474 














006475 














006476 




006477 


* APPLE /// SOS 1.3 SOURCE 


CODE FILE: 


DISK3 .MAIN 


SRC 


006478 




006479 


* ASSEMBLER: APPLE ] [ 


6502 


ASSEMBLER 


from APPLE 


COMPUTER TOOLKIT 


006480 

\J \J \J T {J \J 














006481 

\J \J \J {J J_ 


PAGE 












006482 


* MAIN ENTRY POINT: 












006483 


* 












006484 


* DISABLE NMI /RESET AND ENABLE ROM/IC 


SPACE 






006485 














006486 

\J \J \J T \J 


MAIN EQU 




* 








006487 

\J KJ \J {J I 


LDA 




E.REG 






SAVE CALLER'S 


006488 

\J \J \J {J \J 


AND 




#$FF-$20 






DROP SCREEN BIT 


006489 


STA 




ESAVE 






ENVIRONMENT 


006490 

\J \J \J T -J \J 


DO 




1-TEST 






NO RESETLOCK FOR TESTING 


006491 


LDA 




E.REG 






GET EREG AGAIN 


006492 

\J \J \J ^ -J 


AND 




#$FF-$10 






DISABLE NMI /RESET 


006493 

\J \J \J T .J 


FIN 












006494 


ORA 




#$03 






ENABLE ROM/ IO SPACE 


006495 


STA 




E.REG 








006496 














006497 


LDA 




NOSCROLL 






DISABLE SMOOTHSCROLL 


006498 

\J \J \J .J \J 














006499 


PHP 










IF ALREADY SEI'D, THEN WE 


006500 

\J \J \J \J \J 


PLA 










STAY THAT WAY. . . 


006501 


ROR 




A 








006502 

\J \J \J \J 


ROR 




A 








006503 


ROR 




A 








006504 

\J \J \J \J ^ 


ROR 




A 








006505 

\J \J \J \J 


STA 




IRQMASK 






' I ' BIT INTO BIT7 


006506 














006507 

\J \J \j *J \J 1 


* MAKE SURE WE HAVE A 


VALID COMMAND: 








006508 

\J \J \J \J \J 














006509 


LDA 




D . COMMAND 






GET IT 


006510 


BMI 




BADCMD 






=>WOW ! 


006511 


BEQ 




IOSETUP 






=>ZERO IS A READ 


006512 


CMP 




#10 






OFF THE END? 


006513 


BCS 




BADCMD 






=>YES 


006514 


CMP 




#9 






REPEAT? 


006515 


BNE 




CMD1 






=>NOPE 


006516 














006517 


* REPEAT. SIMPLY GET PRIOR 


COMMAND: 








006518 














006519 


LDA 




PREVUNIT 






IS THIS REPEAT FOR 


006520 


CMP 




D.UNITNUM 






SAME UNIT? 
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006521 


BNE 


BADOP 


;=>NO? ILLEGAL! 


006522 


LDA 


PREVCMD 


;YES, SET COMMAND 


006523 


BEQ 


RPTOK 


; =>REPEAT ' ED READ IS OK 


006524 


CMP 


#1 


;IF NOT, IS IT REPEAT ' ED WRITE? 


006525 


BNE 


BADOP 


;=>CAN'T REPEAT OTHER COMMANDS 


006526 


RPTOK EQU 


* 




006527 


STA 


D . COMMAND 


; SAME AS BEFORE 


006528 


CMP 


#0 


; READ ? 


006529 


BEQ 


IOSETUP 


; =>YES 


006530 


* NOW REPEAT GOES LIKE OTHERS: 




006531 








006532 








006533 


CMD1 EQU 






006534 


CMP 


#1 


; WRITE? 


006535 


BNE 


CMD2 


; =>NOPE 


006536 


JMP 


IOSETUP 


; =>YES 


006537 


CMD2 EQU 


* 




006538 


CMP 


#2 


; STATUS? 


006539 


BNE 


CMD3 


;=>NOT STATUS 


006540 


LDA 


D . STATCODE 


;IS IT 'SENSE'? 


006541 


BEQ 


GOSTAT 


; =>YES 


006542 


LDA 


#XCTLCODE 


; ILLEGAL CODE 


006543 


JMP 


EXIT 




006544 


GOSTAT EQU 


* 




006545 


JMP 


DRVSETUP 


; =>YES 


006546 








006547 


CMD3 EQU 


★ 




006548 


CMP 


#8 


; INIT? 


006549 


BNE 


BADOP 


; =>NOPE 


006550 


JMP 


INIT 


;=>YES, DO INIT 


006551 








006552 


BADOP EQU 


★ 




006553 


LDA 


tXBADOP 


; ILLEGAL COMMAND 


006554 


JMP 


EXIT 


; BACK TO YOU 


006555 








006556 


BADCMD EQU 






006557 


LDA 


#XREQCODE 


; INVALID COMMAND 


006558 


JMP 


EXIT 


; BACK TO YOU 


006559 


PAGE 






006560 


* SETUP WHAT WE HAVE 


TO BEFORE 




006561 


* PERFORMING THE I/O 


OPERATION: 




006562 


* 






006563 


IOSETUP EQU 


* 




006564 


LDA 


D.BLOCK+1 


; VALIDATE BLOCKNUM 


006565 


BEQ 


CHKBYTE 


;=> IF <256, IT'S OK 


006566 


CMP 


#2 


;IS IT <512? 


006567 


BCS 


BADBLOCK 


;=>BAD BOY! 


006568 


LDA 


D . BLOCK 


;YES, CHECK LO HALF 


006569 


CMP 


#280-256 


; FOR RANGE 


006570 


BCC 


CHKBYTE 


;=>IT'S OK 
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006571 
006572 
006573 
006574 
006575 
006576 
006577 
006578 
006579 
006580 
006581 
006582 
006583 
006584 
006585 
006586 
006587 
006588 
006589 
006590 
006591 
006592 
006593 
006594 
006595 
006596 
006597 
006598 
006599 
006600 
006601 
006602 
006603 
006604 
006605 
006606 
006607 
006608 
006609 
006610 
006611 
006612 
006613 
006614 
006615 
006616 
006617 
006618 
006619 
006620 



BADBLOCK 



CHKBYTE 



EQU 
LDA 
JMP 

EQU 
LDA 
BNE 
LDA 
LSR 
BCS 
STA 



#XBLKNUM 
EXIT 



D . BYTES 
BADCOUNT 
D.BYTES+1 
A 

BADCOUNT 
BLKCOUNT 



DOES REQUESTED BYTECOUNT CAUSE US 
TO RUN OFF END OF DISK? 



BLKG255 
CHKLO 

BADCOUNT 



LDA 
CLC 
ADC 
LDX 
BNE 
BCC 
BCS 
EQU 
BCS 
EQU 
CMP 
BCC 
EQU 
LDA 
JMP 
PAGE 



BLKCOUNT 

D . BLOCK 

D.BLOCK+1 

BLKG255 

DRVSETUP 

CHKLO 

BADCOUNT 

#280-256+1 
DRVSETUP 

#XBYTECNT 
EXIT 



* SELECT THE APPROPRIATE DRIVE: 
DRVSETUP 



EQU 
LDA 
STA 
LDA 
STA 
LDA 
ORA 
STA 
JSR 



D . COMMAND 
PREVCMD 

D. UNITNUM 
PREVUNIT 

E. REG 
#$80 
E.REG 
UNITSEL 



SEE IF 
THEN 



THE MOTOR STARTED. IF NOT, 
IT'S EITHER DISKSWITCH OR NODRIVE . 



; BAD BLOCK NUMBER 
; RETURN BAD NEWS 



GET LO COUNT 

=>ERR, NOT INTEGRAL BLOCK (S) 

GET HI COUNT 

MAKE BLOCK COUNT 

=>BAD IF HALF-BLOCK COUNT 

SAVE COUNT OF BLOCKS 



NO. ADD STARTBLOCK 
AND BLKCOUNT AND SEE 
IF WE'RE TOO BIG 
DID IT START OUT > 255? 
=>YES 

=>DEFINITELY < 256 
=>IF CARRY, THEN >256 

;>255+CARRY IS NOW >511 

;281. .511 ? 
;=>NO, WE ARE OK 

; ILLEGAL BYTECOUNT 
; SORRY . . . 



JSR 
BNE 



CHKDRV 
DOIO 



SAVE THIS COMMAND 
AND DEVICE FOR 
SUBSEQUENT 
'REPEAT' CALL 
DOWNSHIFT TO 
1MHZ FOR REMAINDER 
OF DRIVER EXECUTION 
SELECT & START IT 



; MOTOR RUNNING? 
;=>YES, GREAT. 
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006621 


* IF WE GET A MOTOR WHEN 


WE MOVE 




006622 


* THE HEAD, THEN IT'S DISKSWITCH. 




006623 


* 






006624 


LDX 


D.UNITNUM 


FORCE HEAD MOTION 


006625 


INC 


DRVTRACK, X 


EVEN IF ALREADY ON ZERO 


006626 


INC 


DRVTRACK, X 


GIVE HIM A FIRM KNOCKER 


006627 


LDA 


#0 


SEEK TO TRACK ZERO 


006628 


JSR 


MYSEEK 


FOR BFM DIR READ 


006629 


JSR 


CHKDRV 


RUNNING NOW? 


006630 


BNE 


DSWITCH 


=>YES, A SWITCHEROO 


006631 


LDA 


#0 




006632 


LDY 


D.UNITNUM 


FORGET THAT THIS 


006633 


STA 


DRIVESEL, Y 


DRIVE WAS 'SELECTED' 


006634 


LDA 


#XNODRIVE 


NO, A MISSING DRIVE! 


006635 


JMP 


EXIT 




006636 








006637 


DSWITCH EQU 


* 




006638 


LDA 


#XDISKSW 


USER PULLED A FAST ONE 


006639 


JMP 


EXIT 


BUT HE CAN'T FOOL US. 


006640 


PAGE 






006641 


* PREPARE TO DO THE OPERATION: 




006642 


* 






006643 


DOIO EQU 


* 




006644 


LDA 


D . BUFL 


COPY USER BUFFER 


006645 


STA 


BUFTEMP 


AND BLOCK NUMBER 


006646 


LDA 


D . BUFH 


TO OUR WORKSPACE 


006647 


STA 


BUFTEMP +1 




006648 


LDA 


$1400+D.BUFH 




006649 


STA 


$1400+BUFTEMP+1 




006650 


LDA 


D . BLOCK 




006651 


STA 


BLKTEMP 




006652 


LDA 


D.BLOCK+1 




006653 


STA 


BLKTEMP +1 




006654 








006655 


* IF CALLER GAVE US A COUNT OF ZERO BYTES, 




006656 


* THEN WE'RE ALL DONE! 






006657 








006658 


LDA 


D . COMMAND 


IS IT STATUS? 


006659 


CMP 


#2 


IF SO, THEN BYTECOUNT 


006660 


BNE 


DOI02 


IS MEANINGLESS 


006661 


JMP 


STATUS 




006662 


DOI02 EQU 


* 




006663 


LDY 


BLKCOUNT 


BLKS=0? 


006664 


BEQ 


READOK 


=>YES, YOU GET GOOD RETURN 


006665 


CMP 


#0 


READ COMMAND? 


006666 


BEQ 


READREQ 


=>YES 


006667 


JMP 


WRITEREQ 




006668 


PAGE 






006669 


REP 


40 




006670 


* — READ — 







Apple/// Computer I nformation 
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006671 




REP 


40 




006672 


READREQ 


EQU 


* 




006673 




LDA 


#0 


; CLEAR COUNT OF 


006674 




LDY 


#0 




006675 




STA 


(D.BYTRD) , Y 


; BYTES READ 


006676 




INY 






006677 




STA 


(D.BYTRD) , Y 




006678 


READREQ2 


EQU 


* 




006679 




JSR 


BLK2SECT 


; COMPUTE TRK/SECTOR THIS BLOCK 


006680 










006681 




JSR 


SECTORIO 


; READ IT PLEASE 


006682 




BCS 


READERR 


;=>WE LOSE. 


006683 




INC 


SECTOR 


;BUMP TO NEXT 


006684 




INC 


SECTOR 


; LOGICAL SECTOR 


006685 




INC 


BUF+1 


;BUMP SECTOR BUFFER 


006686 




JSR 


SECTORIO 


; READ IT TOO 


006687 




BCS 


READERR 


;=>WE LOSE. 


006688 




LDY 


#1 




006689 




LDA 


(D.BYTRD) , Y 


;BUMP COUNT OF 


006690 




CLC 






006691 




ADC 


#2 




006692 




STA 


(D.BYTRD) , Y 


; BYTES READ 


006693 










006694 


* MORE BLOCKS 


TO GO? 






006695 










006696 




JSR 


MOREBLKS 


; SETUP FOR NEXT BLOCK 


006697 




BNE 


READREQ2 


; =>MORE TO READ . . . 


006698 


READOK 


EQU 


* 




006699 




LDA 


#0 


;GOOD RETURN 


006700 




JMP 


EXIT 


; TELL HAPPY USER 


006701 


* 








006702 


READERR 


EQU 


* 




006703 




JMP 


EXIT 


; RETURN ERROR CODE 


006704 




CHN 


DISK3 . WRT . SRC 




006705 










006706 


************************************************************************* 


006707 


* END OF APPLE 


/// SOS 


1.3 SOURCE CODE FILE: 


DISK3. MAIN. SRC 


006708 


************************************************************************* 


006709 










006710 
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006711 








006712 


DOCUMENT : S0S1 . 3 . 2of 5 . TWO : SOS . D3SIO . TEXT 




006713 








\J \J \J 1 _L ~J 








006714 








006715 


************************************************************************* 


006716 


* APPLE /// SOS 1.3 SOURCE CODE FILE: DISK3.SIO 


SRC 


006717 




006718 


* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE 


COMPUTER TOOLKIT 


006719 








006720 




PAGE 




006721 




REP 40 




006722 


* NAME 


SECTORIO 




006723 


* FUNCTION 


READ OR WRITE A SECTOR 




006724 


* INPUT 


IBSTRK, IBSECT, MONTIME, 




006725 


* RETURNS 


CARRY CLEAR IF OK (AC=00) 




006726 


* 


CARRY SET IF ERROR ( AC=ERRCODE ) 




006727 


* 


SEEKWAIT ALL SETUP 




006728 


* DESTROYS 


ALL REGISTERS 




006729 




REP 40 




006730 


* 






006731 


SECTORIO 


EQU * 




006732 




LDA #R.RECAL 


; SETUP THE 


006733 


* R.RECAL MUST BE NON-ZERO!! (SEE BELOW) 




006734 




STA RECALCNT 


; RECAL TRIES 


006735 




NOP 


; PAD ONE BYTE 


006736 




STA E1908 


; A-REG MUST BE NON-ZERO ! ! ! 


006737 


* E1908 = NON-ZERO LOCKOUT MOUSE 




006738 


* 






006739 




LDY D.UNITNUM 


; ARE WE ON-TRACK? 


006740 




LDA TRACK 




006741 




CMP DRVTRACK, Y 




006742 




BEQ SOUGHT 


;=>IF SO, FORGET SEEK & DELAY! 


006743 


* 






006744 


* WAIT BEFORE STEPPING: 




006745 


* 






006746 




LDA SEEKWAIT 


; SEEK DELAY NEEDED? 


006747 




BEQ GOSEEK 


; =>NAW . . . 


006748 




LDA #0 




006749 




STA SEEKWAIT 


; CLEAR THE FLAG 


00 67 50 




LDA #4 


; ADD SEEKDELAY TO 


006751 




JSR ADDTIME 


; THE TOTAL UPTIME (S) 


00 67 5? 




TAY 


;4*25 MS DELAY 


006753 


SEEKDEL 


EQU * 




006754 




LDA #0 




006755 




JSR MSWAIT 




006756 




DEY 




006757 




BNE SEEKDEL 




006758 


* 






006759 


* ISSUE THE SEEK: 
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006760 










006761 


GOSEEK 


EQU 






006762 




LDA 


TRACK 


GET DESTINATION TRACK 


006763 




JSR 


MYSEEK 


=>..AND YOU SHALL FIND... 


006764 










006765 


SOUGHT 


EQU 






006766 




LDA 


IRQMASK 


SET IRQ MASK FOR 


006767 




STA 


IMASK 


CORE ROUTINES 


006768 




LDA 


#R.IRQ 


SETUP IRQ RETRIES 


006769 




STA 


INTRTRY 




006770 




LDA 


#R . IOERR 


AND ERROR RETRIES 


006771 




STA 


RETRYCNT 




006772 


* 








006773 


* DELAY FOR ANY REMAINING 


MOTOR-UP TIME: 




006774 


* 








006775 


MDELAY 


EQU 






006776 




LDA 


MONTIMEH 


ANY TIME REMAINING? 


006777 




BPL 


FINDIT 


=>NO, WE'RE UP TO SPEED. 


006778 




LDA 


#1 


YES, SO BUMP A SLICE OF 


006779 




JSR 


ADDTIME 


UPTIME WHILE WE WAIT 


006780 




LDA 


#0 




006781 




JSR 


MSWAIT 




006782 




JMP 


MDELAY 


=>GO TILL ENOUGH 


006783 


* 








006784 


* FIND 


THE DESIRED SECTOR 






006785 










006786 


* NOTE 


FINDSECT RETURNS WITH 




006787 




IRQ INHIBITED! 






006788 










006789 


FINDIT 


EQU 






006790 




PHP 




INHIBIT IRQ WHILE 


006791 




SEI 




MESSING WITH VBL FLAGS 


006792 




LDA 


E. IER 


DISABLE VBL IRQ 


006793 




AND 


#$18 


DURING SECTOR I/O 


006794 




STA 


E. IER 




006795 




OPA 


#$80 


FOR 'SET' LATER 


006796 




STA 


VBLSAVE 




006797 




PLP 




RESTORE IRQ STATUS 


006798 




JSR 


FINDSECT 


FIND ME PLEASE 


006799 




BCS 


TRYRECAL 


=>NO? RECAL OR GIVE UP! 


006800 




LDX 


#$60 


SET UP SLOT FOR CORE RTNS 


006801 




LDA 


D . COMMAND 


WHAT'S YOUR PLEASURE? 


006802 




BNE 


SIOWRITE 


=>WRITE 


006803 










006804 




REP 


40 




006805 


* READ 


A SECTOR: 






006806 










006807 




JSR 


READ 


READ THAT SECTOR 


006808 




JSR 


FIXIRQ 


ENABLE IRQ IF OK 


006809 




LDA 


VBLSAVE 


ALLOW VBL DURING 
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006810 


STA 






E.IER 


; POSTNIB 


006811 


BCS 






BADIO 


;=>I/0 ERR OR IRQ 


006812 


LDA 






E.REG 


;SET 2 MHZ FOR POSTNIB 


006813 


AND 






#$7F 




006814 


STA 






E.REG 




006815 


JSR 






POSTNIB 


; POSTNIB/CHECKSUM 


006816 


BCS 






IORETRY 


;=>I/0 ERR : BAD CHKSUM 


006817 


JMP 






SIOGOOD 


;=>GOOD READ 


006818 












006819 


REP 






40 




006820 


* WRITE A SECTOR: 










006821 












006822 


SIOWRITE EQU 






★ 




006823 


JSR 






WRITE 


; WRITE THE DATA 


006824 


JSR 






FIXIRQ 


; RE-ENABLE IRQ IF OK 


006825 


LDA 






VBLSAVE 


; RESTORE 


006826 


STA 






E. IER 


; VBL IRQ 


006827 


BCC 






SIOGOOD 


;=>GOOD WRITE 


006828 


BVC 






SIOWPROT 


;=>WRITE PROTECTED 


006829 












006830 


REP 






40 




006831 


* IT DIDN'T GO WELL 


FOR 


US 






006832 












006833 


BAD IO EQU 










006834 


DO 






1-REV0ROM 


;FOR REV1 


006835 


BVS 






FINDIT 


;=>IRQ. JUST RETRY IT. 


006836 


ELSE 








;FOR REVO 


006837 












006838 


* THE REV1 ROM TAKES 


CARE OF THE 




006839 


* IRQ RETRY COUNT, 


BUT 


REVO DOESN'T: 




006840 












006841 


BVC 






IORETRY 


;=>I/0 ERROR. RETRY IT 


006842 


LDA 






ROMREV 


; WHICH ROM? 


006843 


BNE 






FINDIT 


;=>REV1. HE DOES IT. 


006844 


LDA 






INTRTRY 


;REV0. OUT OF RETRIES? 


006845 


BPL 






BADI02 


; =>NO . 


006846 


STA 






IMASK 


;SET HI BIT FOR IRQ MASK 


006847 


BAD I 02 EQU 










006848 


DEC 






INTRTRY 


;ONE LESS RETRY 


006849 


JMP 






FINDIT 


; =>RETRY AFTER IRQ 


006850 


FIN 










006851 


* 










006852 


* RETRY AFTER AN I/O ERROR 






006853 












006854 


IORETRY EQU 










006855 


DEC 






RETRYCNT 


; ANY RETRIES LEFT? 


006856 


BNE 






FINDIT 


; =>YEAH, RETRY AFTER ERROR 


006857 












006858 


* RETRIES EXHAUSTED. 


RECALIBRATE : 




006859 
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006860 


TRYRECAL 


EQU 


* 




006861 




LDA 


VBLSAVE 


ALLOW VBL IF RECAL 


006862 




STA 


E. IER 


OR UNRECOVERABLE ERROR 


006863 




DEC 


RECALCNT 


HAVE WE RECALIBRATED YET? 


006864 




BMI 


SIOERR 


=>YUP. WE'RE DEAD. 


006865 




JSR 


RECAL 


NO, TRY OUR LUCK 


006866 




LDY 


D . UNITNUM 


ARE WE ON-TRACK? 


006867 




LDA 


TRACK 




006868 




CMP 


DRVTRACK, Y 




006869 




BNE 


NOTSAME 




006870 




JMP 


SOUGHT 


=>IF SO, FORGET RESEEK 


006871 


NOT SAME 


EQU 






006872 




JMP 


GOSEEK 


TRY AGAIN ON TARGET TRACK 


006873 


* 








006874 




REP 


40 




006875 


SIOERR 


EQU 


* 




006876 




LDA 


#XIOERROR 


RETURN CODE 


006877 




SEC 




INDICATE HARD ERROR 


006878 




BCS 


SIORET 




006879 


SIOWPROT 


EQU 


* 




006880 




LDA 


#XNOWRITE 


RETURN CODE 


006881 




SEC 




INDICATE HARD ERROR 


006882 




BCS 


SIORET 




006883 


SIOGOOD 


EQU 






006884 




LDA 


#0 




006885 




CLC 




INDICATE GOOD COMPLETION 


006886 


SIORET 


LDX 


#0 


SAY OK TO MOUSE 


006887 




STX 


E1908 


WITH THIS GLOBAL $1908 


006888 




RTS 






006889 




PAGE 






006890 




REP 


40 




006891 


* NAME 


FINDSECT 






006892 


* FUNCTION 


LOCATE A DESIRED SECTOR 




006893 


* INPUT 


IBTRK, IBSECT SETUP 




006894 


* RETURNS 


CARRY CLEAR 


IF OK, 




006895 




CARRY SET 


IF ERROR. 




006896 


* DESTROYS 


ALL REGISTERS & 'TEMP' 




006897 


* NOTE 


RETURNS WITH 


IRQ DISABLED IF NO ERROR! 


006898 




REP 


40 




006899 










006900 


FINDSECT 


EQU 


* 




006901 




LDA 


#R.FIND*16 


SETUP NUMBER OF REVS 


006902 




STA 


RETRYADR 


ALLOWED TO FIND SECTOR 


006903 




LSR 


TEMP 


COMPUTE LATENCY FIRST TIME THRU 


006904 


FINDSEC2 


EQU 






006905 




LDX 


#$60 


FAKE SLOT FOR CORE ROUTINES 


006906 




JSR 


RDADR 


GET NEXT ADDRESS FIELD 


006907 




BCS 


RDADERR 


=>UGH! AN ERROR! 


006908 










006909 


* MAKE SURE WE'RE ON THE 


CORRECT TRACK: 





Apple / // Sophisticated Operating System (SOS) 1.3 Source Code Listing » PTC 8/ 2001 » Page 149 of 391 



Apple / / / Computer I nformation 



006910 












006911 






LDA 


TRACK 


IS IT 


006912 






CMP 


CSSTV+2 


CORRECT TRACK? 


006913 






BNE 


FINDERR 


=>NO?!? IT'S USELESS! 


006914 






LDA 


SECTOR 


IS IT 


006915 






CMP 


CSSTV+1 


DESIRED SECTOR? 


006916 






BEQ 


FINDGOOD 


=>YEAH . GOT IT! 


006917 












006918 


* COMPUTE LATENCY. EACH TWO-SECTOR 




006919 


* DISTANCE 


IS 


25 MS OF 


UPTIME . 




006920 












006921 






LDA 


TEMP 


LATENCY ALREADY COMPUTED? 


006922 






BMI 


RDADERR 


=>YES . 


006923 






LDA 


SECTOR 


HOW FAR AWAY IS OUR 


006924 






SEC 




DESIRED SECTOR? 


006925 






ROR 


TEMP 


PREVENT RECOMPUTATION 


006926 






SBC 


CSSTV+1 




006927 






AND 


#$0F 




006928 






LSR 


A 


EACH 2-SECTORS IS 25 MS 


006929 






JSR 


ADDTIME 




006930 












006931 


* KEEP LOOKING 


TILL WE 


FIND IT: 




006932 












006933 


RDADERR 




EQU 






006934 






JSR 


FIXIRQ 


ENABLE IRQ IF APPROPRIATE 


006935 






DEC 


RETRYADR 


ANY RETRIES LEFT? 


006936 






BEQ 


FINDERR 


=>NO, WE CAN'T FIND IT. 


006937 












006938 


* COMPENSATE FOR A BUG 


IN RDADR: IF WE TRY 




006939 


* TO CALL 


RDADR AGAIN 


BEFORE THE DATA MARK 




006940 


* GOES BY, 


THEN RDADR 


WILL ACCIDENTALLY CALL 




006941 


* THAT AN 


ERROR. WE CAN AVOID THIS 'FAKE' 




006942 


* ERROR BY 


DELAYING PAST THE DATA MARK. 




006943 






LDY 


#200 


1 MS IS PLENTY 


006944 


ADRDELAY 




EQU 






006945 






DEY 






006946 






BNE 


ADRDELAY 




006947 






JMP 


FINDSEC2 


=>NOW TRY LOOKING AGAIN 


006948 












006949 






REP 


40 




006950 


FINDGOOD 




EQU 






006951 






LDA 


#0 


CLEAR VOLNUM OUT OF 


006952 






STA 


MONTIMEH 


MOTORTIME! 


006953 






CLC 




INDICATE NO ERROR 


006954 






RTS 






006955 












006956 


FINDERR 




EQU 






006957 






JSR 


FIXIRQ 


ENABLE IRQ IF APPROPRIATE 


006958 






LDA 


#0 


CLEAR VOLNUM OUT OF 


006959 






STA 


MONTIMEH 


MOTORTIME! 
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006960 SEC ; INDICATE THE ERROR 

006961 RTS 
006962 

006963 CHN D I SK3 . USEL . SRC 

006964 

006965 ************************************************************************* 

006966 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: DISK3 . SIO . SRC 

006967 ****************************************** 

006968 
006969 
006970 
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006971 
006972 
006973 
006974 
006975 
006976 
006977 
006978 
006979 
006980 
006981 
006982 
006983 
006984 
006985 
006986 
006987 
006988 
006989 
006990 
006991 
006992 
006993 
006994 
006995 
006996 
006997 
006998 
006999 
007000 
007001 
007002 
007003 
007004 
007005 
007006 
007007 
007008 
007009 
007010 
007011 
007012 
007013 
007014 
007015 
007016 
007017 
007018 
007019 



DOCUMENT : SOS1 . 3 . 2of 5 . TWO : SOS . D3SRC . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: DISK3.SRC 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



TEST 



ZZORG 



SBTL 
EQU 

INCLUDE 

DO 

ORG 

ELSE 

REL 

ORG 

FIN 

EQU 

CHR 

MSB 

REP 



'SOS 1.1 DISK /// DRIVER' 

;FOR FUNNY-MODE TESTING 

SOSORG, 6,1,254 

TEST 

$2000 



ORGDISK3 



OFF 



40 



COPYRIGHT (C) APPLE COMPUTER INC. 
ALL RIGHTS RESERVED 



REV0ROM 



REP 
EQU 

DO 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

EXTRN 

EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 

EXTRN 



40 


1-TEST 

DIB1 

DIB2 

DIB3 

DIB4 

SEEKDSK3 

SYSERR 

XREQCODE 

XBADOP 

XNODRIVE 

XIOERROR 

XNOWRITE 

XBYTECNT 

XBLKNUM 

XDISKSW 

XCTLCODE 

E1908 



; l=SUPPORT REVO ROM 



;DIB1 
;DIB2 
;DIB3 
;DIB4 

; SEEK CURRENT DRIVE 



; GLOBAL FLAG FOR MOUSE DRIVER 
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007020 


* TO SAY WE 


CANNOT BE 


INTERRUPTED 




007021 












007022 




ELSE 








007023 


XREQCODE 


EQU 




$20 




007024 


XBADOP 


EQU 




$26 




007025 


XNODRIVE 


EQU 




$28 




007026 


XIOERROR 


EQU 




$27 




007027 


XNOWRITE 


EQU 




$2B 




007028 


XBYTECNT 


EQU 




$2C 




007029 


XBLKNUM 


EQU 




$2D 




007030 


XDISKSW 


EQU 




$2E 




007031 


XCTLCODE 


EQU 




$21 




007032 




FIN 








007033 




PAGE 








007034 


* DISK /// 


CONTROLLER EQUATES: 




007035 












007036 


* MOTOR SELECT 


BITS: 






007037 












007038 


* DRIVE 


INT EXT1 


EXT2 




007039 


* 













007040 


* .Dl 


1 


X 


X 




007041 


* .D2 


X 





1 




007042 


* .D3 


X 


l 







007043 


* .D4 


X 


l 


l 




007044 


* 










007045 


MS . INT 


EQU 




$C0D4 


MOTOR SELECT : INTERNAL DRIVE 


007046 


MD . INT 


EQU 




$C0D5 


MOTOR DESELECT : INTERNAL DRIVE 


007047 












007048 


MS. EXT 1 


EQU 




$C0D3 


MOTOR SELECT : EXTERNAL DRIVE 


007049 


MS.EXT2 


EQU 




$C0D1 


MOTOR SELECT : EXTERNAL DRIVE 


007050 


MD.EXT1 


EQU 




$C0D2 


MOTOR DESELECT : EXTERNAL DRIVE 


007051 


MD . EXT2 


EQU 




$C0D0 


MOTOR DESELECT : EXTERNAL DRIVE 


007052 












007053 


IS. INT 


EQU 




$C0EA 


I/O SELECT : INTERNAL DRIVE 


007054 


IS. EXT 


EQU 




$C0EB 


I/O SELECT : EXTERNAL DRIVE 


007055 












007056 


NOSCROLL 


EQU 




$C0D8 


SMOOTHSCROLL OFF 


007057 












007058 


MOTOROFF 


EQU 




$C0E8 


MOTOR (S) START POWEROFF T/O 


007059 


MOTORON 


EQU 




$C0E9 


MOTOR (S) POWER ON 


007060 


Q6L 


EQU 




$C08C 


Q7L, Q6L=READ 


007061 


Q6H 


EQU 




$C08D 


Q7L, Q6H=SENSE WPROT 


007062 


Q7L 


EQU 




$C08E 


Q7H, Q6L=WRITE 


007063 


Q7H 


EQU 




$C08F 


Q7H, Q6H=WRITE STORE 


007064 












007065 


* OTHER EQUATES: 








007066 












007067 


E.REG 


EQU 




$FFDF 


ENVIRONMENT REGISTER 


007068 


E.IER 


EQU 




$FFEE 


INTERRUPT ENABLE REGISTER 


007069 
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007070 


* RETRY COUNTERS: 






007071 










007072 


R.RECAL 


EQU 


1 


;MAX RECALIBRATES 


007073 


* R.RECAL MUST NOT BECOME 


ZERO ! (MOUSE WILL BE 


LOCKED OUT) 


007074 


* SEE DISK3.SIO 


SRC LINE 


14 FOR DETAIL 




007075 


R. FIND 


EQU 


3 


;MAX REVS TO FIND A SECTOR 


007076 


R. IOERR 


EQU 


4 


;MAX RETRIES ON READ ERROR 


007077 


R. IRQ 


EQU 


6 


;MAX IRQ'S TOLERATED BEFORE SEI 


007078 




PAGE 






007079 


* ZPAGE EQUATES 


FOR CORE 


ROUTINES: 




007080 










007081 




DSECT 






007082 




ORG 


$81 




007083 


IBSLOT 


DS 


1 


;SLOT=$60 FOR RTNS 


007084 




DS 


7 


;N/A 


007085 




DS 


1 


; RDADR : CHECKSUM 


007086 




DS 


1 


;N/A 


007087 


IMASK 


DS 


1 


;BIT7 SET IF IRQ ALLOWED 


007088 


CURTRK 


DS 


1 


; SEEK: CURRENT TRACK 


007089 




DS 


2 


;N/A 


007090 


INTRTRY 


DS 


1 


; READ : IRQ RETRY COUNT 


007091 




DS 


5 


;N/A 


007092 




DS 


1 


;RDADR: 'MUST FIND' COUNT 


007093 




DS 


1 


; READ, WRITE: CHECKSUM 


007094 


CSSTV 


DS 


4 


; RDADR :CKSUM, SEC, TRK, VOL 


007095 


MONTIMEL 


EQU 


CSSTV+2 


;MSWAIT: MOTOR-ON TIME 


007096 


MONTIMEH 


EQU 


MONTIMEL+1 




007097 


BUF 


DS 


2 


;PRENIB,POSTNIB:USER BUFFER 


007098 




DS 


1 


; SEEK: PRIOR PHASE 


007099 


TRKN 


DS 


1 


; SEEK: TARGET TRACK 


007100 










007101 


* LOCAL TEMPS: 








007102 










007103 




ORG 


$D0 


;WE'RE ALLOWED TO $FF 


007104 


BLKTEMP 


DS 


2 


; LOCAL TEMP FOR BLKNUMBER 


007105 


BUFTEMP 


DS 


2 


; LOCAL TEMP FOR BUFFER ADDRESS 


007106 


TRACK 


DS 


1 


; LOCAL TEMP FOR TRACK 


007107 


SECTOR 


DS 


1 


; LOCAL TEMP FOR SECTOR 


007108 


RETRYADR 


DS 


1 


; LOCAL TEMP FOR SECTOR-FIND RETRIES 


007109 


RETRYCNT 


DS 


1 


; LOCAL TEMP FOR I/O RETRIES 


007110 


RECALCNT 


DS 


1 


; LOCAL TEMP FOR RECAL COUNT 


007111 


BLKCOUNT 


DS 


1 


; BLKS REQD TO SATISFY BYTECOUNT 


007112 


SEEKWAIT 


DS 


1 


;<>0 IF SEEK DELAY NEEDED 


007113 


IRQMASK 


DS 


1 


; ENTRY 'I' BIT 


007114 


TEMP 


DS 


1 


;JUST A TEMP 


007115 




DEND 






007116 




PAGE 






007117 


* DRIVER INTERFACE AREA: 






007118 










007119 




DSECT 
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007120 




ORG 


$C0 




007121 


D . COMMAND 


DS 


1 


COMMAND CODE 


007122 


D.UNITNUM 


DS 


1 


UNIT NUMBER 


007123 


D . BUFL 


DS 


2 


BUFFER ADDRESS 


007124 


D . BUFH 


EQU 


D.BUFL+1 




007125 


D . STATCODE 


EQU 


D . BUFL 


DSTATUS CODE 


007126 


D . STATBUF 


EQU 


D . BUFH 


A DSTATUS LIST 


007127 


D. BYTES 


DS 


2 


BYTECOUNT 


007128 


D . BLOCK 


DS 


2 


REQUESTED BLOCKNUM 


007129 


D . BYTRD 


DS 


2 


BYTES READ (READ) 


007130 




DS 


6 


SPARES (OK AS TEMPS 


007131 




DEND 






007132 




PAGE 






007133 


DIB1 


EQU 


* 


DIB FOR .Dl 


007134 




DW 


DIB2 


FLINK 


007135 




DW 


MAIN 


ENTRY POINT 


007136 




DFB 


3 


NAME LENGTH 


007137 




ASC 


' .Dl 




007138 




DFB 


$80 


DEVNUM: ACTIVE 


007139 




DFB 





SLOT 


007140 




DFB 





UNIT NUMBER 


007141 




DFB 


$E1, 1,0 


TYPE, SUB, FILLER 


007142 




DW 


280 


BLOCKCOUNT 


007143 




DW 


1 


MANUFACTURER=APP LE 


007144 




DW 


$1100 


VERSION=l . 1 


007145 










007146 


DIB2 


EQU 


* 


DIB FOR .D2 


007147 




DW 


DIB3 


FLINK 


007148 




DW 


MAIN 


ENTRY POINT 


007149 




DFB 


3 


NAME LENGTH 


007150 




ASC 


' .D2 




007151 




DFB 


$80 


DEVNUM: ACTIVE 


007152 




DFB 





SLOT 


007153 




DFB 


1 


UNIT NUMBER 


007154 




DFB 


$E1, 1, 


TYPE, SUB, FILLER 


007155 




DW 


280 


BLOCKCOUNT 


007156 




DW 


1 


MANUFACTURER=APPLE 


007157 




DW 


$1100 


VERSION=l . 1 


007158 










007159 


DIB3 


EQU 




DIB FOR .D3 


007160 




DW 


DIB4 


FLINK 


007161 




DW 


MAIN 


ENTRY POINT 


007162 




DFB 


3 


NAME LENGTH 


007163 




ASC 


' .D3 




007164 




DFB 


$80 


DEVNUM: ACTIVE 


007165 




DFB 





SLOT 


007166 




DFB 


2 


UNIT NUMBER 


007167 




DFB 


$E1,1,0 


TYPE, SUB, FILLER 


007168 




DW 


280 


BLOCKCOUNT 


007169 




DW 


1 


MANUFACTURER=APPLE 



Apple / // Sophisticated Operating System (SOS) 1.3 Source Code Listing » PTC 8/ 2001 » Page 155 of 391 



Apple/// Computer I nformation 



007170 
007171 
007172 
007173 
007174 
007175 
007176 
007177 
007178 
007179 
007180 
007181 
007182 
007183 
007184 
007185 
007186 
007187 
007188 
007189 
007190 
007191 
007192 
007193 
007194 
007195 



DW 



$1100 



;VERSION=l . 1 



DIB4 



EQU 


* 




;DIB FOR .D4 


DW 







;NO FLINK 


DW 


MAIN 




; ENTRY POINT 


DFB 


3 




; NAME LENGTH 


ASC 


' .D4 






DFB 


$80 




; DEVNUM : ACTIVE 


DFB 







; SLOT 


DFB 


3 




;UNIT NUMBER 


DFB 


$E1, 1,0 




; T YPE , SUB, FILLER 


DW 


280 




; BLOCKCOUNT 


DW 


1 




; MANUFACTURER=APPLE 


DW 


$1100 




;VERSION=l . 1 


DW 


1 




; MANUFACTURER=APPLE 


DW 


$1100 




;VERSION=l . 1 


CHN 


DISK3 .MAIN. 


SRC 




INCLUDE 


SOSORG, 6, 1, 


254 




*************************************************** 



* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: DISK3 . SRC 
******************************************** 
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007196 
007197 
007198 
007199 
007200 
007201 
007202 
007203 
007204 
007205 
007206 
007207 
007208 
007209 
007210 
007211 
007212 
007213 
007214 
007215 
007216 
007217 
007218 
007219 
007220 
007221 
007222 
007223 
007224 
007225 
007226 
007227 
007228 
007229 
007230 
007231 
007232 
007233 
007234 
007235 
007236 
007237 
007238 
007239 
007240 
007241 
007242 
007243 
007244 



DOCUMENT : SOS1 . 3 . 2of 5 . TWO : SOS . D3SUBS . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: DISK3 . SUBS . SRC 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



40 



NAME 

FUNCTION 

INPUT 

RETURNS 

DESTROYS 



PAGE 
REP 
CHKDRV 

CHECK IF MOTOR (S) RUNNING 
NONE 

1 BNE 1 IF RUNNING 
'BEQ' IF NOT 
AC,X 

REP 40 
NOTES: DUE TO A FLOATING PIN, THERE 
COULD BE A GLITCH WHICH CAUSES THE 
SHIFTER TO 'FLASH' ONTO THE BUS 
INSTEAD OF ALWAYS BEING TRISTATED. 
THIS COULD CAUSE CHKDRV TO THINK 
THAT THE MOTOR IS SPINNING WHEN IT 
IS NOT. THUS WE WILL SAMPLE THE SHIFTER 
FOR 40 US AT 6-US INTERVALS. IF, AFTER 
THREE (3) CONSECUTIVE PASSES, ANY OF 
THE PASSES SEES A 'LOCKED' SHIFTER, 
THEN WE SAY THE DRIVE IS STOPPED. 



CHKDRV 
CHKD1 



EQU 








LDX 


#3 


CHECK SHIFTER SEVERAL 


EQU 








LDA 


Q6L+$60 


GET DATA 


CMP 


Q6L+$60 


HAS IT 


CHANGED? 


BNE 


CHANGED 


=>YES 




CMP 


Q6L+$60 


HAS IT 


CHANGED? 


BNE 


CHANGED 


=>YES 




CMP 


Q6L+$60 


HAS IT 


CHANGED? 


BNE 


CHANGED 


=>YES 




CMP 


Q6L+$60 


HAS IT 


CHANGED? 


BNE 


CHANGED 


=>YES 




CMP 


Q6L+$60 


HAS IT 


CHANGED? 


BNE 


CHANGED 


=>YES 




CMP 


Q6L+$60 


HAS IT 


CHANGED? 


BNE 


CHANGED 


=>YES 




CMP 


Q6L+$60 


HAS IT 


CHANGED? 


BNE 


CHANGED 


=>YES 
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007245 




RTS 






IF EVER LOCKED, IT'S STOPPED 


007246 












007247 


CHANGED 


EQU 








007248 




DEX 








007249 




BNE 




CHKD1 


TRY SEVERAL TIMES 


007250 




DEX 






SET CC=BNE 


007251 




RTS 






RETURN ZFLAG APPROPRIATELY 


007252 




PAGE 








007253 




REP 




40 




007254 


* NAME 


ADDTIME 








007255 


* FUNCTION 


ADD TO MOTOR UPTIME (S) 




007256 


* INPUT 


AC=NO. OF 


25 


MS INCREMENTS 




007257 


* DESTROYS 


Y 








007258 




REP 




40 




007259 












007260 


ADDTIME 


EQU 




* 




007261 




PHA 






PRESERVE AC 


007262 




LDY 




#4 


TABLE INDEX/COUNT 


007263 


ADD 2 


EQU 




* 




007264 




LDA 




DRIVESEL-1, Y 


IS IT SELECTED? 


007265 




BEQ 




ADD 3 


=>NOPE 


007266 




PLA 








007267 




PHA 






RECOVER DELTA-T 


007268 




CLC 








007269 




ADC 




UPTIME— 1, Y 


ADD TO MOTOR UPTIME 


007270 




CMP 




#TlSEC+2 


IS IT AT MAX TIME? 


007271 




BCC 




ADD2A 


=>NO, STORE NEW TIME 


007272 




LDA 




#T1SEC+1 


YES, SET TO >1 SEC 


007273 


ADD 2 A 


EQU 








007274 




STA 




UPTIME— 1, Y 




007275 


ADD 3 


EQU 








007276 




DEY 








007277 




BNE 




ADD 2 


=>DO ALL 4 DRIVES 


007278 


* 










007279 




PLA 






RESTORE AC 


007280 




RTS 








007281 




PAGE 








007282 




REP 




40 




007283 


* NAME 


RECAL 








007284 


* FUNCTION 


RECALIBRATE DRIVE HEAD 




007285 


* INPUT 


NONE 








007286 


* DESTROYS 


ALL REGISTERS 






007287 


* NOTE 


A 'QUIET' 


RECALIBRATE IS DONE 




007288 




USING TWO 


ITERATIONS. IF WE ARE 




007289 




LOST, THEN 


SEEK 48-TRACKS 




007290 




TOWARD TRACK 


ZERO. IF WE KNOW 




007291 




WHAT TRACK 


WE 


'RE CURRENTLY 




007292 




ON (+- 1/2 


TRACK) , THEN JUST 




007293 




ADD A LITTLE 


EXTRA AND SEEK 




007294 




TO TRACK ZERO 


. A 4 8 -TRACK 
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007295 




SEEK WILL 


ALWAYS GET US BACK 




007296 




ONTO THE MEDIA 


, EVEN IF WE 




007297 




WERE "OFF 


THE 


CAM" . FROM THAT 




007298 




POINT, THE 2ND 


SEEK GETS US 




007299 




BACK TO TRACK 


ZERO QUIETLY. 




007300 




REP 




40 




007301 












007302 


RECAL 


EQU 




* 




007303 




LDA 




#2 


;TWO ITERATIONS, PLEASE 


007304 


RECAL1 


EQU 




★ 




007305 




PHA 






;SAVE LOOPCOUNT 


007306 




LDX 




#$60 


; SETUP SLOT FOR CORE RTNS 


007307 




JSR 




RDADR 


; WHERE ARE WE? 


007308 




BCC 




RECAL 2 


;=>NOW WE KNOW 


007309 




JSR 




RDADR 


;GIVE SECOND SHOT 


007310 




BCC 




RECAL 2 


; =>THAT GOT IT 


007311 




LDA 




#48 


;LOST? TRY 48-TRACK SEEK 


007312 




JMP 




RECAL3 




007313 


RECAL2 


EQU 




* 




007314 




LDA 




CSSTV+2 


; HERE'S WHERE WE ARE 


007315 




CLC 






; ADD SOME SO WE GET A 


007316 




ADC 




#3 


; HARDER SEEK TO ZERO 


007317 


RECAL3 


EQU 








007318 




LDY 




D.UNITNUM 


;THIS IS NOW WHERE 


007319 




STA 




DRVTRACK, Y 


; WE ARE 


007320 




JSR 




FIXIRQ 


; ENABLE IRQ IF OK 


007321 


* 










007322 




LDA 




#0 


/DESTINATION TRACK IS 00 


007323 




STA 




MONTIMEH 


; CLEAR MOTOR-UP TIME SO 


007324 




STA 




MONTIMEL 


; SEEK KNOWS HOW LONG RECAL 


007325 




JSR 




MYSEEK 


;=>SLAM IT BACK! 


007326 




PLA 






; HAVE WE DONE IT TWICE? 


007327 




TAY 








007328 




DEY 








007329 




TYA 








007330 




BNE 




RECAL1 


;=>DO TWO ITERATIONS 


007331 




RTS 








007332 




PAGE 








007333 




REP 




40 




007334 


* NAME 


SEEKDSK3 








007335 


* FUNCTION 


SEEK CURRENT DRIVE 




007336 


* INPUT 


AC=DESTINATION 


TRACK 




007337 


* OUTPUT 


NONE 








007338 


* DESTROYS 


ALL REGISTERS 






007339 


* NOTE 


MUST BE CALLED 


WHILE 




007340 




MOTOR IS 


RUNNING, IN 




007341 




1MHZ+ROM+IO MODE 




007342 




REP 




40 




007343 


SEEKDSK3 


EQU 




* 




007344 




LDY 




PREVUNIT 


; GET DRIVENUM 
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007345 




STY 


D.UNITNUM 


;SET IT UP 


007346 




JSR 


MYSEEK 


;MOVE IT! 


007347 




RTS 






007348 




REP 


40 




007349 


* 


NAME : MYSEEK 






007350 




FUNCTION: SEEK TO DESIRED TRACK 




007351 


* 


INPUT : AC=DESTINATION TRACK 




007352 


* 


DESTROYS: ALL REGISTERS 




007353 




REP 


40 




007354 


MYSEEK EQU 






007355 




STA 


TRKN 


; TEMP HOLD OF AC 


007356 




LDY 


D.UNITNUM 


; GET DRIVENUM 


007357 




LDA 


DRVTRACK, Y 


; SETUP CURRENT TRACK 


007358 




ASL 


A 


;SET IN HALFTRACKS FOR SEEK 


007359 




STA 


CURTRK 


; FOR SEEK ROUTINE 


007360 




LDX 


#$60 


;SET UP SLOT FOR CORE RTNS 


007361 




LDA 


MONTIMEH 


; GET STARTING MOTOR TIME 


007362 




STA 


TEMP 




007363 










007364 


* 


NOTE: IRQ'S WHICH SUSPEND SEEK MAY CAUSE A 




007365 




SEEK FAILURE. WE WILL HAVE TO RECALIBRATE 




007366 




SINCE WE WON'T BE ON- 


-TRACK. WE CAN NOT GET 




007367 


* 


ON A HALFTRACK SINCE 


SEEK ALLOWS SETTLING 




007368 




TIME OF THE PHASE. BECAUSE VBL IS A SERIOUS 




007369 




OFFENDER, WE INHIBIT 


HIM. 




007370 










007371 




PHP 




; INHIBIT IRQ WHILE 


007372 




SEI 




; MESSING WITH VBL FLAGS 


007373 




LDA 


E. IER 




007374 




AND 


#$18 




007375 




STA 


VBLSAVE 




007376 




STA 


E. IER 




007377 




PLP 




; RESTORE IRQ STATUS 


007378 




LDA 


TRKN 


; RESTORE DESTINATION TRACK 


007379 




STA 


DRVTRACK, Y 


; DEST IS NOW CURRENT 


007380 




ASL 


A 


; MAKE IT IN HALFTRACKS 


007381 




JSR 


SEEK 


; GO MOVE THE HEAD . . . 


007382 




LDA 


VBLSAVE 


;NOW ALLOW THAT 


007383 




ORA 


#$80 


; NASTY 


007384 




STA 


E. IER 


; VBL INTERRUPT 


007385 


* 








007386 


* 


COMPUTE THE TIME USED 


BY SEEK: 




007387 


* 








007388 




LDA 


MONTIMEH 


; INCLUDE SEEKTIME IN 


007389 




SEC 






007390 




SBC 


TEMP 




007391 




JSR 


ADDTIME 


; TOTAL MOTOR UPTIME (S) 


007392 




RTS 






007393 




PAGE 






007394 




REP 


40 
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007395 


* NAME : BLK2SECT 










007396 


* FUNCTION: COMPUTE 


TRACK/ SECTOR FOR A BLOCK 




007397 


* AND ADJUST 


BUFFER ADDRESS 




007398 


* INPUT : D. BLOCK, 


D. 


BUF 






007399 


* OUTPUT : TRACK, SECTOR, 


D.BUF 




007400 


* DESTROYS: AC,Y 










007401 


REP 






40 




007402 


* 










007403 


BLK2SECT EQU 










007404 


LDA 






BLKTEMP+1 


; GET HI BLK HALF 


007405 


ROR 






A 


;MOVE LO BIT TO CARRY 


007406 


LDA 






BLKTEMP 


; GET LO HALF 


007407 


ROR 






A 


/COMBINE WITH HI BIT 


007408 


LSR 






A 




007409 


LSR 






A 


; FINISH OFF DIVIDE-BY-8 


007410 


STA 






TRACK 


; THAT'S THE TRACK 


007411 


LDA 






BLKTEMP 


; GET LO HALF AGAIN 


007412 


AND 






#7 




007413 


TAY 










007414 


LDA 






SECTABLE, Y 


; GET START SECTOR 


007415 


STA 






SECTOR 




007416 












007417 


* ADJUST BUFFER ADDRESS SO 


THAT I/O 




007418 


* WON'T WRAPAROUND 


IN 


THE 


BANK: 




007419 


* (THIS ALGORITHM RIPPED OFF FROM 1.0) 




007420 












007421 


LDA 






BUFTEMP+1 


; GET BUFFER HI ADDRESS 


007422 


LDY 






$1400+BUFTEMP+1 


; AND XTND BYTE 


007423 


CMP 






#$82 


;IF RAM ADDR >=8200 THEN 


007424 


BCC 






NOADJ 


; NEXT BANK PAIR 


007425 


CPY 






#$80 




007426 


BCC 






NOADJ 


;=>NOT USING BANKPAIR 


007427 


CPY 






#$8F 


; SPECIAL BANK 0? 


007428 


BEQ 






NOADJ 


; =>YES 


007429 


AND 






#$7F 


;DROP HI ADDRESS AND 


007430 


STA 






BUFTEMP+1 


; BUMP BANK NUMBER 


007431 


INC 






$1400+BUFTEMP+1 




007432 












007433 


NOADJ EQU 










007434 


LDA 






BUFTEMP+1 


;COPY BUFFER ADDRESS 


007435 


STA 






BUF+1 


; FOR PRE & POSTNIB 


007436 


LDA 






BUFTEMP 




007437 


STA 






BUF 




007438 


LDA 






$1400+BUFTEMP+1 




007439 


STA 






$1400+BUF+1 




007440 


RTS 










007441 












007442 


SECTABLE DFB 






$00,$04,$08,$0C, $01,$05,$09,$0D 


007443 


PAGE 










007444 


REP 






40 
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007445 
007446 
007447 
007448 
007449 
007450 
007451 
007452 
007453 
007454 
007455 
007456 
007457 
007458 
007459 
007460 
007461 
007462 
007463 
007464 
007465 
007466 
007467 
007468 
007469 
007470 
007471 
007472 
007473 
007474 
007475 
007476 
007477 
007478 
007479 
007480 
007481 
007482 
007483 
007484 
007485 
007486 



* NAME 

* FUNCTION 

* INPUT 

* RETURNS 

* DESTROYS 



MOREBLKS 



MOREBLKS 

SETUP TO DO NEXT BLOCK 
NONE 

' BNE 1 IF MORE TO DO 
'BEQ' IF NO MORE TO DO 
NOTHING 



MORE 2 



NAME : 
FUNCTION: 
INPUT : 
DESTROYS : 



FIXIRQ 



FIXRET 



REP 

EQU 
INC 
INC 
INC 
BNE 
INC 
EQU 
DEC 
RTS 
SKP 
REP 
FIXIRQ 

ENABLE IRQ IF 
NONE 
NOTHING 
REP 

EQU 
PHA 
LDA 
BMI 
CLI 
EQU 
PLA 
RTS 

CHN 



40 



BUFTEMP+1 
BUFTEMP+1 
BLKTEMP 
MORE 2 
BLKTEMP +1 
* 

BLKCOUNT 
4 

40 

APPROPRIATE 



40 



IRQMASK 
FIXRET 



;BUMP BUFFER ADDRESS 
;BUMP BLOCK NUMBER 



; MORE BLOCKS TO GO? 
; RETURN RESULT OF DEC 



; SHOULD IRQ BE ENABLED ; 
;=>NO, LEAVE IT ALONE 
; ENABLE IRQ 



DISK3 .DATA. SRC 



************************************************************************* 

* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: DISK3 . SUBS . SRC 
****************************************************************** 
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007487 
007488 
007489 
007490 
007491 
007492 
007493 
007494 
007495 
007496 
007497 
007498 
007499 
007500 
007501 
007502 
007503 
007504 
007505 
007506 
007507 
007508 
007509 
007510 
007511 
007512 
007513 
007514 
007515 
007516 
007517 
007518 
007519 
007520 
007521 
007522 
007523 
007524 
007525 
007526 
007527 
007528 
007529 
007530 
007531 
007532 
007533 
007534 
007535 



DOCUMENT : SOS1 . 3 . 2of 5 . TWO : SOS . D3USEL . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: DISK3 . USEL . SRC 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



PAGE 

REP 40 
UNITSEL 

SELECT & START A DRIVE, 
SET UP MOTOR & SEEK DELAYS 
NONE 

MONTIME, SEEKTIME 
ALL REGISTERS 

REP 40 



NAME : 
FUNCTION: 

INPUT : 
OUTPUT : 
DESTROYS : 



UNITSEL 



EQU 
LDY 
LDA 
STA 
STA 
STA 



D.UNITNUM 
#0 

SEEKWAIT 
MONTIMEL 
MONTIMEH 



SEE IF MOTOR (S) STILL SPINNING: 



JSR 
BNE 



CHKDRV 
SPINNING 



NO MOTOR (S) SPINNING. DESELECT 
ALL MOTORS AND START AFRESH: 

LDX MD . INT 

LDA #0 

STA DRIVESEL+0 

STA UPTIME+0 

JSR EXTDESEL 

JMP SETTIME 

REP 40 
MOTOR (S) SPINNING: OURS? 



SPINNING 



EQU 
LDA 
BNE 



DRIVESEL, Y 
GOFORIT 



; GET DRIVENUM 
; ASSUME NO SEEKWAIT 
; WILL BE NEEDED 
; CLEAR MONTIME 



; MOTOR (S) POWERED UP? 
;=>YES. WHO IS IT? 



DESELECT ALL 
SHOW INTERNAL AS 

NOT SELECTED 
INDICATE DRIVE IS FULLY STOPPED 
DESELECT ALL EXTERNALS TOO 
GO SETUP MOTOR DELAY 



; HAD WE BEEN SELECTED? 
;=>YES, GO FOR IT RIGHT AWAY. 



WE AREN'T SPINNING. SHUTDOWN ANOTHER 
DRIVE, IF NECESSARY, TO GET GOING: 
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007536 










007537 


CPY 




#0 


; ARE WE THE INTERNAL DRIVE? 


007538 


BEQ 




SETTIME 


;=>YES, LEAVE EXT MOTOR ALONE 


007539 


* 








007540 


* WE'RE AN EXTERNAL DRIVE. 


STOP ALL EXTERNAL 


MOTORS 


007541 


* UNCONDITIONALLY, BUT 


LEAVE THE INTERNAL MOTOR ALONE. 


007542 


* IF WE *DID* HAVE TO STOP 


ANOTHER EXTERNAL, 


THEN 


007543 


* MAKE SURE WE SET THE 


CORRECT PRE-SEEK DELAY! 


007544 










007545 


LDA 




#0 


;SEE IF ANOTHER EXTERNAL 


007546 


ORA 




DRIVESEL+3 


; HAD BEEN 


007547 


ORA 




DRIVESEL+2 


; SELECTED 


007548 


ORA 




DRIVESEL+1 


BEFORE . . . 


007549 


BEQ 




SETTIME 


;=>NO, SEEK DELAY IS UNNECESSARY 


007550 


INC 




SEEKWAIT 


;YES, DELAY BEFORE STEPPING 


007551 


JSR 




EXTDESEL 


; DESELECT ALL EXTERNALS 


007552 


JMP 




SETTIME 


;=>GO SETUP MOTOR DELAY 


007553 


PAGE 








007554 


REP 




40 




007555 


* OUR DRIVE IS SPINNING 


GO FOR IT! 




007556 


* DEPENDING OF HOW LONG 


THE MOTOR'S BEEN ON, 




007557 


* THIS COMMAND MAY REQUIRE A MOTOR DELAY. 




007558 










007559 


GOFORIT EQU 








007560 


LDX 




D . COMMAND 


; GET CURRENT COMMAND 


007561 


LDA 




MTIMES,X 


; GET REQUIRED UPTIME FOR IT 


007562 


SEC 








007563 


SBC 




UPTIME, Y 


; DRIVE RUNNING LONG ENOUGH? 


007564 


BCS 




SELECT 


;=>NO, AC NOW HAS DELTA-T 


007565 


LDA 




#0 


; OTHERWISE, WAIT=0 


007566 


JMP 




SELECT 


;SET MONTIME & SELECT DRIVE 


007567 


REP 




40 




007568 










007569 


* ALL MOTORS WERE OFF. CHOOSE THE 




007570 


* APPROPRIATE MOTOR-ON 


TIME: 




007571 










007572 


SETTIME EQU 




* 




007573 


LDA 




#0 


; INDICATE THAT 


007574 


STA 




UPTIME, Y 


; THE DRIVE WAS OFF 


007575 


LDX 




D . COMMAND 


; GET CURRENT COMMAND 


007576 


LDA 




MTIMES,X 


; GET CORRECT DELAY TIME 


007577 


REP 




40 




007578 


* 








007579 


* SELECT THE DRIVE & START 


IT: 




007580 










007581 


SELECT EQU 




* 




007582 


STA 




MONTIMEH 


; NEGATE IT BECAUSE 


007583 


LDA 




#0 


; IT GETS INCREMENTED 


007584 


SEC 






INSTEAD OF 


007585 


SBC 




MONTIMEH 


DECREMENTED 



Apple /// Sophisticated Operating System (SOS) 1.3 Source Code Listing » PTC 8/ 2001 » Page 164 of 391 



Apple / / / Computer I nformation 



007586 


STA 


MONTIMEH 


; STUFF MOTOR DELAY 


007587 


CPY 


#1 


; ARE WE THE INTERNAL DRIVE? 


007588 


BCS 


SELEXT 


;=>NO, AN EXTERNAL 


007589 


LDA 


IS . INT 


;I/0 SELECT INTERNAL 


007590 


LDA 


MS . INT 


; MOTOR SELECT 


INTERNAL 


007591 


JMP 


UN I TRET 


;=>ALL DONE! 




007592 










007593 


SELEXT EQU 








007594 


LDA 


IS .EXT 


;I/0 SELECT EXTERNAL 


007595 


CPY 


#2 


; ARE WE 2, 3, 


OR 4 ? 


007596 


BCS 


NOTD2 


;=>DEFINITELY 


3 OR 4 


007597 


LDA 


MD.EXT1 


; MOTOR SELECT 




007598 


LDA 


MS .EXT2 


; ONLY .D2 




007599 


JMP 


UN I TRET 


;=>ALL DONE! 




007600 










007601 


NOTD2 EQU 


* 






007602 


BNE 


ISD4 


;=>DEFINITELY 


NOT 3 


007603 


LDA 


MS .EXT1 


; MOTOR SELECT 




007604 


LDA 


MD.EXT2 


; ONLY .D3 




007605 


JMP 


UN I TRET 


;=>ALL DONE! 




007606 










007607 


ISD4 EQU 


* 






007608 


LDA 


MS .EXT1 


; MOTOR SELECT 




007609 


LDA 


MS .EXT2 


; ONLY .D4 




007610 










007611 










007612 


UN I TRET EQU 


* 






007613 


LDA 


MOTORON 


; PROVIDE MOTOR POWER 


007614 


LDA 


#1 


;SAY WE'VE SELECTED 


007615 


STA 


DRIVESEL, Y 


; THIS DRIVE 




007616 










007617 


* IF WE HAVE MOTORTIME TO 


BURN, 






007618 


* THEN DELAY 50 MS. THIS 


ENSURES 






007619 


* A GOOD SOLID CHKDRV AFTER 






007620 


* TURNING ON THE MOTOR. 








007621 










007622 


LDA 


MONTIMEH 


; ANY MOTORTIME? 


007623 


BPL 


UNITRTS 


;=>NO, WE GO FOR IT. 


007624 


LDY 


#5 


;5*10 MS 




007625 


UNITDEL EQU 








007626 


LDA 


#100 


;100*100US IS 


10MS 


007627 


JSR 


MSWAIT 






007628 


DEY 








007629 


BNE 


UNITDEL 






007630 


LDA 


#2 


; INCLUDE THE 


50MS 


007631 


JSR 


ADDTIME 


; IN MOTOR UPTIME (S) 


007632 


UNITRTS EQU 








007633 


RTS 








007634 


SKP 


5 






007635 


REP 


40 
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007636 * NAME : EXTDESEL 

007637 * FUNCTION: DESELECT ALL EXTERNAL DRIVE MOTORS 

007638 * INPUT : NONE 

007639 * DESTROYS: AC,X 



007640 




REP 


40 




007641 


* 








007642 


EXTDESEL 


EQU 






007643 




LDA 


MD.EXT1 


; DESELECT ALL EXTERNAL 


007644 




LDA 


MD.EXT2 


; DRIVE MOTORS 


007645 




LDX 


#3 


;SHOW THAT THEY ARE 


007646 




LDA 


#0 


; ARE ALL DEAD DUCKS 


007647 


EDS1 


STA 


DRIVESEL,X 




007648 




STA 


UPTIME, X 


; DRIVE MOTORS ARE OFF 


007649 




DEX 






007650 




BNE 


EDS1 




007651 




RTS 






007652 










007653 




CHN 


DISK3 . SUBS . SRC 





007654 
007655 
007656 
007657 
007658 
007659 



************************************************************************* 

* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: DISK3 . USEL . SRC 
*********************************************** 
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007660 












007661 


DOCUMENT :SOS1.3.2of5 


TWO: 


SOS. D3WRT. TEXT 




007662 












\J \J 1 \J \J £-i 












007663 












007664 


************************************************************************* 


007665 


* APPLE /// SOS 1.3 SOURCE 


CODE FILE 


DISK3.WRT 


SRC 


007666 




007667 


* ASSEMBLER: APPLE ] [ 


6502 


ASSEMBLER 


from APPLE 


COMPUTER TOOLKIT 


007668 












007669 


PAGE 










007670 


REP 




40 






007671 


* WRITE 










007672 


REP 




40 






007673 


* 










007674 


WRITEREQ EQU 




* 






007675 


JSR 




BLK2SECT 




; COMPUTE TRK/ SECTOR THIS BLOCK 


007676 


LDA 




E.REG 




;SET 2 MHZ 


007677 


AND 




#$7F 






007678 


STA 




E.REG 






007679 


JSR 




PRENIB 




; PRENIBBLIZE FOR WRITE 


007680 


JSR 




SECTORIO 




; WRITE IT OUT. . . 


007681 


BCS 




WRITERR 




;=>SOMETHING'S WRONG 


007682 


* 










007683 


INC 




SECTOR 




;BUMP TO NEXT 


007684 


INC 




SECTOR 




; LOGICAL SECTOR 


007685 


INC 




BUF+1 




;BUMP SECTOR BUFFER ADDRESS 


007686 


LDA 




E.REG 




;SET 2 MHZ 


007687 


AND 




#$7F 






007688 


STA 




E.REG 






007689 


JSR 




PRENIB 




; PRENIBBLIZE FOR WRITE 


007690 


JSR 




SECTORIO 




; WRITE IT OUT 


007691 


BCS 




WRITERR 




;=>SOMETHING'S WRONG 


007692 


* 










007693 


* MORE BYTES TO DO? 










007694 


* 










007695 


JSR 




MOREBLKS 




; SETUP FOR NEXT 


007696 


BNE 




WRITEREQ 




;=>MORE TO DO 


007697 


LDA 




#0 




;GOOD RETURN 


007698 


JMP 




EXIT 






007699 


* 










007700 


WRITERR EQU 




* 






007701 


JMP 




EXIT 




; RETURN ERROR CODE 


007702 


PAGE 










007703 


REP 




40 






007704 


* STATUS 










007705 


REP 




40 






007706 


* 










007707 


STATUS EQU 




* 






007708 


LDX 




#$60 




; DUMMY SLOT 
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007709 




LDA 


Q6H,X 


SENSE WRITE PROTECT 


007710 




LDA 


Q7L,X 




007711 




ASL 


A 


PRESERVE IT IN CARRY 


007712 




LDA 


Q6L,X 


BACK TO READ MODE 


007713 




LDA 


#0 


NOW MOVE BIT TO 


007714 




ROL 


A 


PROPER POSITION 


007715 




ROL 


A 


($02) 


007716 




LDY 


#0 




007717 




STA 


(D . STATBUF) , Y 


RETURN IT 


007718 




LDA 


#0 


GOOD RETURN 


007719 




JMP 


EXIT 


DONE 


007720 




PAGE 






007721 




REP 


40 




007722 


* INIT — 








007723 




REP 


40 




007724 










007725 


INIT 


EQU 


★ 




007726 




LDA 


INITFLAG 


INIT' ED YET? 


007727 




BMI 


GOODINIT 


=>YES, DONE 


007728 










007729 




LDA 


#$60 


SETUP SLOT FOR 


007730 




STA 


IBSLOT 


CORE ROUTINES 


007731 




LDA 


#$FF 


PREVENT SECOND 


007732 




STA 


INITFLAG 


INIT 


007733 




LDA 


#0 


CLEAR STUFF OUT 


007734 




STA 


PREVUNIT 


SOSBOOT JUST USED .Dl 


007735 




LDY 


#4 




007736 


CLRDRVS 


EQU 






007737 




LDA 


#0 




007738 




STA 


DRIVESEL-1 , Y 


NOBODY SELECTED 


007739 




STA 


UPTIME-1, Y 


ALL OFF 


007740 




STA 


DRVTRACK-1 , Y 




007741 




DEY 






007742 




BNE 


CLRDRVS 




007743 




DO 


1-TEST 


ONLY IF NOT TESTING 


007744 










007745 


* SET UP .Dl 


SINCE LOADER 


S USING IT: 




007746 










007747 




LDA 


E.REG 


SET 1MHZ FOR THE 


007748 




ORA 


#$80 


STATEMACHINE I/O 


007749 




STA 


E.REG 




007750 




JSR 


CHKDRV 


IS .Dl MOTOR SPINNING? 


007751 




BEQ 


INIT2 


=>NO, MOTOR'S OFF 


007752 




LDA 


#T200MS 


UPTIME GOOD FOR READS 


007753 




STA 


UPTIME+0 




007754 


INIT2 


EQU 


* 




007755 




LDA 


#1 




007756 




STA 


DRIVESEL+0 


.Dl IS THE CURRENT DRIVE 


007757 




LDA 


$0300+CURTRK 


RETRIEVE CURRENT TRACK 


007758 




STA 


DRVTRACK+0 


REMEMBER IT 
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FIN 






007760 








007761 


* SET UP JMP TABLE FOR 


CORRECT ROM: 




007762 








007763 


DO 


REV0ROM 


ONLY IF SUPPORTING IT! 


007764 


LDA 


$F1B9 


LOOK FOR START OF RDADR 


007765 


CMP 


#$A0 


IS IT RDADR (REV1) ? 


007766 


BEQ 


INITREV1 


=>YES 


007767 


CMP 


#$60 


IS IT END OF READ (REVO)? 


007768 


BNE 


INITERR 


=>NEITHER! 


007769 


LDY 


#0 


REV=0 


007770 


BEQ 


INITVECT 


(ALWAYS TAKEN) 


007771 


INITREV1 EQU 


* 




007772 


LDY 


#VSIZE 




007773 


INITVECT EQU 


* 




007774 


STY 


ROMREV 


SET ROM REVISION INDICATOR 


007775 


LDX 


#VSIZE 




007776 


MOVEVECT EQU 


* 




007777 


LDA 


REVO, Y 


GET A BYTE 


007778 


STA 


JMPTAB, Y 


MOVE IT 


007779 


INY 






007780 


DEX 






007781 


BNE 


MOVEVECT 




007782 


FIN 






007783 


GOODINIT EQU 






007784 


LDA 


#0 


RETCODE=GOOD , IF YOU CARE 


007785 


CLC 




SAY 'GOOD INIT' 


007786 


BCC 


EXIT 


(ALWAYS TAKEN) 


007787 


DO 


REVO ROM 




007788 


INITERR EQU 






007789 


SEC 




SAY 'BAD INIT' 


007790 


* FALL THRU TO EXIT 






007791 


FIN 






007792 


PAGE 






007793 


REP 


40 




007794 


* — EXIT PATH — 






007795 


REP 


40 




007796 








007797 


EXIT EQU 


★ 




007798 


PHA 




SAVE RETURN CODE 


007799 


* 






007800 


* UPDATE UPTIME BY 50 MS (3 SECTOR-TIMES) 




007801 


* TO ACCOUNT FOR READ/WRITE TIME: 




007802 








007803 


LDA 


D . COMMAND 


GET COMMAND 


007804 


CMP 


#2 


SENSE OR INIT? 


007805 


BCS 


EXIT2 


=>YES, NO TIME USED UP 


007806 


LDA 


#2 


TIME=50 MS (2 UNITS) 


007807 


JSR 


ADDTIME 


BUMP UPTIME (S) 


007808 









Apple/// Computer I nformation 
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007809 
007810 



* RESTORE CALLER ENVIRONMENT: 



007830 
007831 
007832 
007833 
007834 



007811 EXIT2 


EQU 






007812 


LDA 


E.REG 


; GET CURRENT STATE 


007813 


AND 


#$20 


; OF THE SCREEN 


007814 


ORA 


ESAVE 


; MERGE WITH CALLER STATE 


007815 


STA 


E.REG 




007816 


JSR 


FIXIRQ 


; RE -ENABLE IRQ IF OK 


007817 


LDA 


MOTOROFF 


; START MOTOR-OFF TIMEOUT 


007818 


PLA 




; RESTORE RETURN CODE 


007819 


DO 


TEST 


; IF TEST, NO SYSERR 


007820 


RTS 






007821 


ELSE 






007822 


BNE 


GOERR 


;=>ERROR RETURN VIA SYSERR 


007823 


CLC 






007824 


RTS 




;GOOD RETURN W/ CARRY CLEAR 


007825 GOERR 


EQU 


* 




007826 


JSR 


SYSERR 


; RETURN VIA SYSERR 


007827 


FIN 






007828 








007829 


CHN 


DISK3 . SIO. SRC 





********************************************** 

* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: DISK3 . WRT . SRC 

************************************************************************* 
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007835 
007836 
007837 
007838 
007839 
007840 
007841 
007842 
007843 
007844 
007845 
007846 
007847 
007848 
007849 
007850 
007851 
007852 
007853 
007854 
007855 
007856 
007857 
007858 
007859 
007860 
007861 
007862 
007863 
007864 
007865 
007866 
007867 
007868 
007869 
007870 
007871 
007872 
007873 
007874 
007875 
007876 
007877 
007878 
007879 
007880 
007881 
007882 
007883 



DOCUMENT : SOS1 . 3 . 2of 5 . TWO : SOS . DEVMGR. TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: DEVMGR. SRC 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



ZZORG 



SBTL 
REL 

INCLUDE 
ORG 
EQU 
MSB 
REP 

COPYRIGHT (C) 



"SOS 1.1 DEVICE MANAGER" 

SOSORG, 6, 1, 254 
ORGDMGR 



REP 



OFF 
100 

APPLE COMPUTER INC. 1980 
ALL RIGHTS RESERVED 
100 



DEVICE MANAGER (VERSION =1.10 ) 
(DATE = 8/04/81) 

THIS MODULE IS RESPONSIBLE FOR CALLING THE CORRECT DEVICE 
DRIVER WHEN A D . READ . . . D . INIT SYSTEM CALL IS MADE. 
(NOTE: D. OPEN, D. CLOSE AND D.INIT ARE ONLY CALLABLE FROM 
INSIDE THE OPERATING SYSTEM) . D . INFO AND GET . DNUM CALLS 
ARE HANDLED INSIDE THIS MODULE. REPEAT . IO BYPASSES THIS MODULE. 



REP 

ENTRY 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 



100 
DMGR 

MAX . DNUM 

SDT.SIZE 

SDT.DIBL 

SDT.DIBH 

SDT.ADRL 

SDT.ADRH 

SDT . BANK 

SDT.UNIT 

BLKD .SIZE 

BLKDLST 

SYSERR 

SERR 

NODNAME 

BADDNUM 

SYSDEATH 

BADSYSCALL 
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007884 
007885 
007886 
007887 
007888 
007889 
007890 
007891 
007892 
007893 
007894 
007895 
007896 
007897 
007898 
007899 
007900 
007901 
007902 
007903 
007904 
007905 
007906 
007907 
007908 
007909 
007910 
007911 
007912 
007913 
007914 
007915 
007916 
007917 
007918 
007919 
007920 
007921 
007922 
007923 
007924 
007925 
007926 
007927 
007928 
007929 
007930 
007931 
007932 
007933 



E.REG 
B.REG 



EXTRN 

EQU 
EQU 
PAGE 
REP 



SXPAGE 

$FFDF 
$FFEF 

100 



ENVIRONMENT REGISTER 
BANK REGISTER 



* SYSTEM DEVICE TABLE (SDT) 

* CONTAINS THE ADDRESS OF EACH DRIVER'S DIB (SDT. DIB), THE 

* ADDRESS OF EACH DRIVER'S ENTRY POINT (SDT. ADR), AND THE 

* UNIT # OF EACH DRIVER (SDT. UNIT) . THE TABLE IS INDEXED 

* BY DEVICE NUMBER. ENTRY IS RESERVED FOR FUTURE USE. 



SDT. SIZE 



MAX. 
SDT. 



DNUM 
DIBL 



SDT.DIBH 



SDT.ADRL 
SDT.ADRH 



SDT . BANK 



SDT. UNIT 



REP 

EQU 

DS 
DS 
DS 

DS 
DS 

DS 

DS 



REP 

BLOCK DEVICE LIST TABLE 



BLKD .SIZE 
BLKDLST 



EQU 
DFB 
DS 

PAGE 
REP 



* DATA DECLARATIONS 
REP 



D . TPARMX 
REQCODE 



EQU 
EQU 



100 



25 



SDT. SIZE 
SDT. SIZE 

SDT. SIZE 
SDT. SIZE 

SDT. SIZE 

SDT. SIZE 

100 



13 
$00 

BLKD. SI ZE- 

100 



100 

$co 

D . TPARMX 



;MAX DEV NUMBER IN SYSTEM+1 

; ADR OF DEVICE INFORMATION BLOCK 



; ADR OF ENTRY POINT 



; BANK # OF DEVICE 
;UNIT # OF DRIVER 



* D . READ/WRITE/ CTRL/ STATUS/OPEN/CLOSE/INIT/REPEAT PARMS 
DNUM EQU D . TPAPMX+1 
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007934 
007935 
007936 
007937 
007938 
007939 
007940 
007941 
007942 
007943 
007944 
007945 
007946 
007947 
007948 
007949 
007950 
007951 
007952 
007953 
007954 
007955 
007956 
007957 
007958 
007959 
007960 
007961 
007962 
007963 
007964 
007965 
007966 
007967 
007968 
007969 
007970 
007971 
007972 
007973 
007974 
007975 
007976 
007977 
007978 
007979 
007980 
007981 
007982 
007983 



* D.INFO FARMS 

I . DNUM EQU 

I . DNAME EQU 

I.DLIST EQU 

I . LENGTH EQU 

* GET . DEV . NUM FARMS 



G . DNAME 
G . DNUM 



EQU 
EQU 



SDT ENTRY (=DIB) FIELDS 



DIB. SLOT 
DIB.DTYPE 



SDTP 



EQU 
EQU 

EQU 

PAGE 

REP 



D.TPARMX+1 
D . TPARMX+2 
D . TPARMX+4 
D.TPARMX+6 



D.TPARMX+1 
D . TPARMX+3 



$11 
$13 

D.TPARMX+$10 
100 



;DIB'S DEVICE SLOT FIELD 
;DIB'S DEVICE TYPE FIELD 

; PTR TO CURRENT SDT ENTRY 



DEVICE MANAGER (MAIN ENTRY POINT) 



DMGR 



DM000 



REP 
EQU 

LDA 

CMP 

BCC 

BNE 

JMP 

CMP 

BEQ 

CMP 

BCC 

LDA 

JSR 

PAGE 

REP 



100 



REQCODE 
#4 

DRIVER 
DM000 
GET . DNUM 
#5 

D . INFO 
#$A 

DRIVER 

#BADSYSCALL 

SYSDEATH 

100 



; D. READ/WRITE/CTRL/STATUS CALL 

; GET. DEV. NUM CALL 

; D.INFO CALL 

D.OPEN/CLOSE/INIT 
ELSE FATAL ERROR 
EXIT 



D.READ/WRITE/CTRL/STATUS/OPEN/CLOSE/INIT 
"JSR" TO DEVICE DRIVER 



CALLS 



DRIVER 



REP 
EQU 

LDX 
BEQ 
CPX 
BCC 



100 



DNUM 
DM005 
MAX . DNUM 
DM010 



GET DNUM SYSCALL PARM 
WITHIN BOUNDS? 



* DNUM TOO LARGE 
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007984 


* 












007985 


DM005 


LDA 


#>BADDNUM 




INVALID DEVICE NUMBER 


007986 






JSR 


SYSERR 




ERROR EXIT 


007987 














007988 




MAP DEV# 


TO UNIT# 








007989 














007990 


DM010 


LDA 


SDT.UNIT,X 






007991 






STA 


DNUM 






007992 














007993 


* 


"JSR" TO 


DEVICE DRIVER VIA JMP TABLE 






007994 














007995 






LDA 


B.REG 




STACK B.REG 


007996 






PHA 








007997 






LDA 


#<DM.RTN-1 




STACK RETURN ADDRESS 


007998 






PHA 








007999 






LDA 


#>DM.RTN-1 






008000 






PHA 








008001 














008002 






LDA 


SDT . BANK, X 




SELECT RAM BANK 


008003 






STA 


B.REG 






008004 






LDA 


SDT . ADRH, X 




STACK DRIVER ENTRY POINT ADDRESS 


008005 






PHA 








008006 






LDA 


SDT . ADRL, X 






008007 






PHA 








008008 


* 












008009 






LDA 


E.REG 




SWITCH IN I/O BANK 


008010 






ORA 


#$40 






008011 






STA 


E.REG 






008012 






RTS 






AND, "JSR" TO DEVICE DRIVER 


008013 


* 












008014 


DM.RTN 


LDA 


E.REG 




SWITCH OUT I/O BANK 


008015 






AND 


#$BF 






008016 






STA 


E.REG 






008017 






PLA 






RESTORE B.REG 


008018 






STA 


B.REG 






008019 






SEC 








008020 






LDA 


SERR 


r 


RETRIEVE ERROR CODE 


008021 






BNE 


DM017 


r 


ENSURE CARRY CLEARED IF NO ERROR 


008022 






CLC 








008023 


DM017 


RTS 




r 


AND, EXIT TO CALLER 


008024 






PAGE 








008025 






REP 


100 






008026 


★ 


D . INFO ( IN . DNUM, OUT 


DNAME, OUT.DEVLIST, 


IN. LENGTH) SYSTEM CALL 


008027 






REP 


100 






008028 


D 


INFO 


EQU 








008029 














008030 






LDX 


I . DNUM 




GET DNUM PARM 


008031 






BEQ 


DM020 




WITHIN BOUNDS? 


008032 






CPX 


MAX . DNUM 




ii 


008033 






BCC 


DM030 
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008034 
008035 
008036 
008037 
008038 
008039 
008040 
008041 
008042 
008043 
008044 
008045 
008046 
008047 
008048 
008049 
008050 
008051 
008052 
008053 
008054 
008055 
008056 
008057 
008058 
008059 
008060 
008061 
008062 
008063 
008064 
008065 
008066 
008067 
008068 
008069 
008070 
008071 
008072 
008073 
008074 
008075 
008076 
008077 
008078 
008079 
008080 
008081 
008082 
008083 



DM020 



LDA 
JSR 



#>BADDNUM 
SYSERR 



; NO, DNUM TOO LARGE 
; ERROR EXIT 



* MOVE FARMS FM SDT ENTRY (DEV INFO BLOCK) TO CALLER'S 

* FARM LIST 



DM030 JSR 
* OUPUT DNAME FARM 



DM040 



LDA 
TAY 
LDA 
STA 
DEY 
BPL 



SETUP . SDT 



(SDTP) , Y 

(SDTP) , Y 

(I .DNAME) , Y 



; SET UP ZPAGE PTR TO SDT ENTRY 



; LOAD FARM'S BYTE COUNT 



DM040 

OUTPUT DEVINFO FARM (SLOT, UNIT, DEVID, PRODCODE) 



DM045 



DM050 



DM. EXIT 



LDA 
CLC 
ADC 
STA 
BCC 
INC 
LDY 
BEQ 
DEY 
CPY 
BCC 
LDY 
LDA 
STA 
DEY 
BPL 

CLC 
RTS 
PAGE 
REP 



#DIB.SLOT 

SDTP 
SDTP 
DM045 
SDTP+1 
I . LENGTH 
DM. EXIT 

#$B 

DM050 

#$A 

(SDTP) , Y 

( I . DLIST) , Y 

DM050 



100 



; ADVANCE SDTP TO 2ND PARM IN SDT 



; LOAD BYTE COUNT 
; IF THEN DONE 



; NORMAL EXIT 



* GET. DEV. NUM( IN. DNAME; OUT. DNUM) SYSTEM CALL 



GET . DNUM 



DM070 



REP 
EQU 
LDX 
JSR 
LDA 



100 



SETUP . SDT 
(SDTP) , Y 



; SETUP PTR TO 1ST SDT ENTRY 

; SET UP ZPAGE PTR TO SDT ENTRY 

; COMPARE DNAME LENGTHS 
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008084 
008085 
008086 
008087 
008088 
008089 
008090 
008091 
008092 
008093 
008094 
008095 
008096 
008097 
008098 
008099 
008100 
008101 
008102 
008103 
008104 
008105 
008106 
008107 
008108 
008109 
008110 
008111 
008112 
008113 
008114 
008115 
008116 
008117 
008118 
008119 
008120 
008121 
008122 
008123 
008124 
008125 
008126 
008127 
008128 
008129 
008130 
008131 
008132 
008133 



DM080 



DM0 90 



NXTSDT 



CMP 
BNE 

TAY 
LDA 
CMP 
BCC 
AND 
CMP 
BNE 
DEY 
BNE 

TXA 
LDY 
STA 
LDY 
LDA 
CLC 
RTS 

INX 

CPX 
BCC 



LDA 
JSR 
PAGE 
REP 

* SETUP. SDT (IN. X=DNUM, 
REP 

SETUP . SDT EQU 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
STY 
RTS 



ZZEND 
ZZLEN 



LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



(G.DNAME) , Y 
NXTSDT 



(G.DNAME) , Y 
#$60 
DM090 
#$DF 

(SDTP) , Y 
NXTSDT 

DM080 



#0 

(G.DNUM) , Y 
#DIB . DTYPE 
(SDTP) , Y 



MAX . DNUM 
DM070 

#>NODNAME 
SYSERR 

100 

OUT. SDTP, B.REG, Y=0) 
100 
* 

SDT.DIBL,X 
SDTP 

SDT.DIBH,X 

SDTP+1 

SDT. BANK, X 

B.REG 

#0 

SXPAGE+SDTP+1 



ON 
* 

ZZEND-ZZORG 
ZZLEN-LENDMGR 
2, "SOSORG 



; LENGTHS MATCH, NOW COMPARE CHARS 



; UPSHIFT 



; CHARS MATCH 

OUTPUT DEV NUM PARM 
SET "N" FLAG IN STATUS REG. 
N=l (BLOCK DEVICE) N=0 (CHAR DEVICE) 

; NORMAL EXIT 

; LAST SDT ENTRY? 



; ERROR, DNAME NOT FOUND IN SDT 
; RETURN TO CALLER 



X=" UNCHANGED" 



SET UP ZPAGE PTR TO SDT ENTRY 
(POINTS TO DNAME FIELD) 



FILE IS INCORRECT FOR DEVMGR" 



************************************************************************* 
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008134 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: DEVMGR . SRC 

008135 ************************************************************************* 
008136 

008137 
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008138 












008139 


DOCUMENT :S0S1. 


3 . 2of 5 . TWO : SOS . DISK3 . TEXT 




008140 
























008141 












008142 




008143 


* APPLE /// SOS 


1.3 SOURCE CODE FILE 


DISK3. DATA. SRC 


008144 




008145 


* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER 


from APPLE 


COMPUTER TOOLKIT 


008146 












008147 




PAGE 








008148 


* GENERAL DATA: 










008149 


* 










008150 


PREVUNIT 


DS 


1 




; PRIOR UNIT ACCESSED (FOR REPEAT 


008151 


PREVCMD 


DS 


1 




; PRIOR CMD (FOR REPEAT) 


008152 

\J \J KJ _L £-i 












0081 53 

\J \J <J -L ~J ~J 


ESAVE 


DS 


1 




; SAVED E.REG 


008154 


VBLSAVE 


DS 


1 




; SAVED E.IER 


008155 


INITFLAG 


DFB 







;<0 IS INITTED 


008156 

v u U J- J v 




DO 


REV0ROM 






008157 


ROMREV 


DS 


1 




;0=REV0, <>0=REV1 


008158 




FIN 








008159 












008160 

\J \J KJ _L \J \J 


* MOTOR-UP TIMES PER COMMAND 






008161 


T50MS 


EQU 


$02 




; 50MS FOR MONTIMEH 


008162 


T200MS 


EQU 


$08 




;200 MS FOR MONTIMEH 


008163 


T1SEC 


EQU 


$27 




; 1-SEC FOR MONTIMEH 


008164 












008165 


MTIMES 


DFB 


T200MS, T1SEC, T50MS 


; READ, WRITE, SENSE 


008166 

v u U 1 v U 












008167 




REP 


40 






008168 


* DRIVE TABLES: 










008169 












008170 


DRIVESEL 


DS 


4 




; NONZERO IF SELECTED 


008171 












008172 


UPTIME 


DS 


4 




; MOTOR RUNTIME SINCE STARTED 


008173 


DRVTRACK 


DS 


4 




/CURRENT HEAD POSITION 


008174 




PAGE 








008175 




DO 


REV0ROM 




; ONLY IF SUPPORTING IT! 


008176 


* JUMP TABLE TO 


MONITOR 


ROUTINES . 






008177 


* THIS TABLE FILLED IN 


BY ' INIT'. 






008178 


* 










008179 


JMPTAB 


EQU 








008180 


RDADR 


JMP 








008181 


READ 


JMP 


* 






008182 


WRITE 


JMP 








008183 


SEEK 


JMP 


* 






008184 


MSWAIT 


JMP 








008185 


PRENIB 


JMP 








008186 


POSTNIB 


JMP 


* 
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008187 
008188 
008189 
008190 
008191 
008192 
008193 
008194 
008195 
008196 
008197 
008198 
008199 
008200 
008201 
008202 
008203 
008204 
008205 
008206 
008207 
008208 
008209 
008210 
008211 
008212 
008213 
008214 
008215 
008216 
008217 
008218 
008219 
008220 
008221 
008222 
008223 
008224 
008225 
008226 



REVO 



VSIZE 
REV1 



RDADR 

READ 

WRITE 

SEEK 

MSWAIT 

PRENIB 

POSTNIB 



ZZEND 
ZZLEN 



EQU 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
EQU 

EQU 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

ELSE 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

FIN 

EQU 

EQU 

IFNE 

FAIL 

FIN 



$F1BD 
$F148 
$F219 
$F400 
$F456 
$F2C6 
$F311 
*-REV0 



$F1B9 
$F148 
$F216 
$F400 
$F456 
$F2C4 
$F30F 

$F1B9 
$F148 
$F216 
$F400 
$F456 
$F2C4 
$F30F 



*-ZZORG 

ZZLEN-LENDISK3 
2, "SOSORG 



REVO ADDRESSES 

RDADR 

READ 

WRITE 

SEEK 

MSWAIT 

PRENIB 

POSTNIB 

TABLE SIZE 

REV1 ADDRESSES 

RDADR 

READ 

WRITE 

SEEK 

MSWAIT 

PRENIB 

POSTNIB 

FOR REV1 WE USE EQUATES 

RDADR 

READ 

WRITE 

SEEK 

MSWAIT 

PRENIB 

POSTNIB 



FILE IS INCORRECT FOR DISK3" 



******************************************************************** 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: DISK3 . DATA. SRC 

************************************************************************* 
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008227 
008228 
008229 
008230 
008231 
008232 
008233 
008234 
008235 
008236 
008237 
008238 
008239 
008240 
008241 
008242 
008243 
008244 
008245 
008246 
008247 
008248 
008249 
008250 
008251 
008252 
008253 
008254 
008255 
008256 
008257 
008258 
008259 
008260 
008261 
008262 
008263 
008264 
008265 
008266 
008267 
008268 
008269 
008270 
008271 
008272 
008273 
008274 
008275 



DOCUMENT : SOS1 . 3 . 2of 5 . TWO : SOS . FMGR . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: FMGR. SRC 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

SBTL "SOS 1.1 FILE MANAGER" 
REL 

INCLUDE SOSORG, 6, 1, 254 

ORG ORGFMGR 

ZZORG EQU * 

MSB OFF 

REP 60 

* COPYRIGHT (C) APPLE COMPUTER INC. 1980 

* ALL RIGHTS RESERVED 
REP 60 

* FILE MANAGER (VERSION =1.10 ) 

* (DATE = 8/04/81) 

* THIS MODULE IS ENTERED FROM THE SYSTEM CALL MANAGER, AND 

* IS RESPONSIBLE FOR SWITCHING TO EITHER THE BLOCK FILE 

* MANAGER, OR THE CHARACTER FILE MANAGER. 



F . TPARMX 

OPEN 

CLOSE 

SETLEVEL 

GETLEVEL 

F . REQCODE 

F . LEVEL 

PATHNAME 

REFNUM 



REP 

ENTRY 
ENTRY 

EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



60 

FMGR 
LEVEL 

BFMGR 

CFMGR 

SYSERR 

SERR 

BADPATH 

FNFERR 

LVLERR 

$A0 

$8 

$C 

$12 

$13 

F . TPARMX 
F.TPAPMX+$1 
F.TPAPMX+$1 
F.TPAPMX+$1 



; LOC OF FILE SYSTEM CALL PARMS 
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008276 


PERIOD 


EQU 


$2E 


008277 


LEVEL 


DFB 


$1 


008278 




PAGE 




008279 




REP 


60 


008280 








008281 


* FILE MANAGER 






008282 








008283 




REP 


60 


008284 


FMGR 


EQU 




008285 


* 






008286 




LDA 


F . REQCODE 


008287 




CMP 


#OPEN 


008288 




BCC 


FMGR010 


008289 




BEQ 


FMGR020 


008290 




CMP 


#CLOSE 


008291 




BCC 


FMGR030 


008292 




BEQ 


FMGR040 


008293 




CMP 


#SETLEVEL 


008294 




BEQ 


SLEVEL 


008295 




CMP 


#GETLEVEL 


008296 




BEQ 


GLEVEL 


008297 








008298 


FMGR010 


JMP 


BFMGR 


008299 








008300 


FMGR020 


LDY 


#1 


008301 




LDA 


(PATHNAME) , Y 


008302 




CMP 


#PERIOD 


008303 




BNE 


FMGR010 


008304 




JSR 


CFMGR 


008305 




BCC 


FMGR024 


008306 




LDA 


SERR 


008307 




CMP 


#FNFERR 


008308 




BEQ 


FMGR02 6 


008309 


FMGR024 


RTS 




008310 








008311 


FMGR02 6 


LDA 


#0 


008312 




STA 


SERR 


008313 




JMP 


BFMGR 


008314 


* 






008315 


FMGR030 


LDA 


REFNUM 


008316 


FMGR031 


BPL 


FMGR010 


008317 




JMP 


CFMGR 


008318 








008319 


FMGR040 


LDA 


REFNUM 


008320 




BNE 


FMGR031 


008321 




JSR 


BFMGR 


008322 




JMP 


CFMGR 


008323 








008324 


SLEVEL 


LDA 


F . LEVEL 


008325 




BEQ 


LVL . ERR 



; EXIT 



; EXIT 



; EXIT 



; EXIT 



; CLOSE (0) 
; EXIT 
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008326 
008327 
008328 
008329 
008330 
008331 
008332 
008333 
008334 
008335 
008336 
008337 
008338 
008339 
008340 
008341 
008342 
008343 
008344 
008345 
008346 
008347 
008348 
008349 
008350 



LVL . ERR 



GLEVEL 



ZZEND 
ZZLEN 



CMP 
BCS 
STA 
RTS 
LDA 
JSR 

LDY 
LDA 
STA 
RTS 

LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



#4 

LVL . ERR 
LEVEL 

#LVLERR 
SYSERR 

#0 

LEVEL 

(F. LEVEL) , Y 



ON 

ZZEND-ZZORG 
ZZLEN-LENFMGR 
2, "SOSORG 



FILE IS INCORRECT FOR FMGR" 



************************************************************************* 



END OF APPLE /// SOS 1.3 SOURCE CODE FILE: FMGR. SRC 



************************************************************************* 
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008351 
008352 
008353 
008354 
008355 
008356 
008357 
008358 
008359 
008360 
008361 
008362 
008363 
008364 
008365 
008366 
008367 
008368 
008369 
008370 
008371 
008372 
008373 
008374 
008375 
008376 
008377 
008378 
008379 
008380 
008381 
008382 
008383 
008384 
008385 
008386 
008387 
008388 
008389 
008390 
008391 
008392 
008393 
008394 
008395 
008396 
008397 
008398 
008399 



DOCUMENT : SOS 1 . 3 . 2of 5 . TWO : SOS . MMGR . A . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: MEMMGR . A . SRC 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



ZZORG 



SBTL 
REL 

INCLUDE 
ORG 
EQU 
MSB 
REP 

COPYRIGHT (C) 



"SOS 1.1 MEMORY MANAGER" 

SOSORG, 6, 1, 254 
ORGMEMMG 



REP 



OFF 
60 

APPLE COMPUTER INC. 
ALL RIGHTS RESERVED 

60 



1980 



* MEMORY MANAGER (VERSION =1.10 ) 

* (DATE = 8/04/81) 
* 

* THIS MODULE CONTAINS ALL OF THE MEMORY MANAGEMENT SYSTEM 

* CALLS SUPPORTED BY THE SARA OPERATING SYSTEM. IT IS 

* ALSO CALLED BY THE BUFFER MANAGER. 



REP 

ENTRY 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

EXTRN 

EXTRN 

EXTRN 

EXTRN 

EXTRN 

EXTRN 

EXTRN 

EXTRN 

EXTRN 

EXTRN 

PAGE 

REP 



60 

MMGR 

ST . CNT 
ST . ENTRY 
ST. FREE 
ST.FLINK 
VRT.LIM 

SYSERR 

BADSCNUM 

BADBKPG 

SEGRQDN 

SEGTBLFULL 

BADSEGNUM 

SEGNOTFND 

BADSRCHMODE 

BADCHGMODE 

BADPGCNT 

60 
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008400 
008401 
008402 
008403 
008404 
008405 
008406 
008407 
008408 
008409 
008410 
008411 
008412 
008413 
008414 
008415 
008416 
008417 
008418 
008419 
008420 
008421 
008422 
008423 
008424 
008425 
008426 
008427 
008428 
008429 
008430 
008431 
008432 
008433 
008434 
008435 
008436 
008437 
008438 
008439 
008440 
008441 
008442 
008443 
008444 
008445 
008446 
008447 
008448 
008449 



* SEGMENT TABLE 



* (NOTE: ENTRY 


IS NOT 


USED) 






REP 


60 




ST . FREE 


DS 


1 


PTR TO FIRST FREE SEG TABLE ENTRY 


ST . ENTRY 


DS 


1 


PTR TO HIGHEST ALLOC SEG TABLE ENTRY 


ST.SIZ 


EQU 


7 




ST . CNT 


EQU 


32 




ST.TBL 


DS 


ST.SIZ*ST.CNT 




ST. BLINK 


EQU 


ST.TBL 


BACK LINK TO PREV ALLOC SEG ENTRY 


ST.FLINK 


EQU 


ST . BLINK+ST . CNT 


FORWARD LINK 


ST . BASEL 


EQU 


ST . FLINK+ST . CNT 


BASE BANK/PAGE 


ST . BASEH 


EQU 


ST . BASEL+ST . CNT 




ST.LIML 


EQU 


ST . BASEH+ST . CNT 


LIMIT BANK/PAGE 


ST.LIMH 


EQU 


ST.LIML+ST.CNT 




ST. ID 


EQU 


ST.LIMH+ST.CNT 


SEG ID 




PAGE 








REP 


60 




* DATA DECLARATIONS 






★ 


REP 


60 




ZPAGE 


EQU 


$40 


BEGINNING OF ZPAGE TEMP SPACE FOR MEMORY MANAGER 


VRT . BASE 


EQU 


$0 


INTERNAL BK/PG PTR TO LOWEST VIRT PAGE 


VRT.LLM 


EQU 


ZPAGE+$0 


S$l, INTERNAL BK/PG PTR TO HIGHEST VIRT PAGE 


PHY1BASE 


EQU 


$0780 


BANK "F", PAGE "0" 


PHY1LLM 


EQU 


$079F 


BANK "F", PAGE "IF" 


PHY2BASE 


EQU 


$0820 


BANK "10", PAGE "AO" 


PHY2LLM 


EQU 


$087F 


BANK "10", PAGE "FF" 


* REQUEST. SEG DATA DECLARATIONS 




M.TPARMX 


EQU 


$60 


BEGINNING ADDRESS OF MMGR SOS CALL PARMS 


M.RQCODE 


EQU 


M.TPARMX 




RQ . BASE 


EQU 


M.TPARMX+1 


BASE. BANK/PAGE 


RQ.LIM 


EQU 


M.TPARMX+3 


LIMIT. BANK/PAGE 


RQ. ID 


EQU 


M.TPARMX+5 




RQ . NUM 

* 


EQU 


M.TPARMX+6 




RQ. REGION 


EQU 


ZPAGE+$2 


VRT (0) ,PHY0 (1) ,PHY1 (2) 


* FIND. SEG DATA 


DECLARATIONS 




SRCHMODE 


EQU 


M.TPARMX+1 


SEARCH MODE (0,1,2) 


F.ID 


EQU 


M.TPARMX+2 


SEG ID 


F.PGCT 


EQU 


M.TPARMX+3 


PAGE COUNT (LO 


FX.PGCT 


EQU 


ZPAGE+$3 


&$4, INTERNAL PAGE COUNT 
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008450 


F . BASE 




EQU 


M.TPARMX+5 


BASE. BANK/PAGE 


008451 


F.LIM 




EQU 


M.TPARMX+7 


LIMIT. BANK/PAGE 


008452 


F.NUM 




EQU 


M.TPARMX+9 


SEG NUM 


008453 


F.ERR 




EQU 


ZPAGE+$5 


ERROR FLAG 


008454 


TRUE 




EQU 


$80 




008455 


FALSE 




EQU 


$0 




008456 


CFS.PGCT 




EQU 


ZPAGE+$6 


&7, CURRENT FREE SEGMENT'S PAGE COUNT 


008457 


CFS . BASE 




EQU 


ZPAGE+$8 


&9, " BASE . BANK/PAGE 


008458 


CFS.LIM 




EQU 


ZPAGE+$A 


S$B, " LIMIT. BANK/PAGE 


008459 


CFS. BLINK 




EQU 


ZPAGE+$C 


BACK LINK 


008460 


CFS.BASEO 




EQU 


ZPAGE+$D 


&$E, " BASE (SMODE=0) 


008461 


CFS. BASE 1 




EQU 


ZPAGE+$F 


&$10, " BASE (SMODE=l) 


008462 


CFS. NEXT 




EQU 


ZPAGE+$11 


NEXT ENTRY 


008463 


CFS.PREV 




EQU 


ZPAGE+$12 


PREV ENTRY 


008464 


CFS.PTR 




EQU 


ZPAGE+$13 


S$14 " POINTER TO NXT FREE 


008465 


BFS.PGCT 




EQU 


ZPAGE+$15 


&$16, BIGGEST FREE SEGMENT'S PAGE COUNT 


008466 


BFS . BASE 




EQU 


ZPAGE+$17 


S$18 " BASE . BANK/PAGE 


008467 


BFS.LIM 




EQU 


ZPAGE+$19 


S$1A " LIMIT. BANK/PAGE 


008468 


BFS. BLINK 




EQU 


ZPAGE+$1B 


BACK LINK 


008469 


* 










008470 


* CHANGE. SEG DATA DECLARATIONS 




008471 


* 










008472 


CHG . NUM 




EQU 


M.TPARMX+1 


SEGNUM PARM 


008473 


CHG . MODE 




EQU 


M.TPARMX+2 


CHANGE MODE PARM 


008474 


CHG.PGCT 




EQU 


M.TPARMX+3 


PAGE COUNT PARM 


008475 


CHG.PGCTX 




EQU 


ZPAGE+$1C 


S$1D, INTERNAL STORE FOR PGCT 


008476 


CHG . NEW 




EQU 


ZPAGE+$1E 


&$1F, BANK/PAGE OF SEG ' S NEW LIMIT OR BASE 


008477 












008478 


* GET. SEG 


INFO DATA 


DECLARATIONS 




008479 












008480 


GS I . NUM 




EQU 


M.TPARMX+1 




008481 


GSI .BASE 




EQU 


M.TPARMX+2 




008482 


GSI.LIM 




EQU 


M.TPARMX+4 




008483 


GSI .PGCT 




EQU 


M.TPARMX+6 




008484 


GSI. ID 




EQU 


M.TPARMX+8 




008485 












008486 


* GET. SEG 


NUM 


DATA DECLARATIONS 




008487 












008488 


GSN . BKPG 




EQU 


M.TPARMX+1 




008489 


GSN . NUM 




EQU 


M.TPARMX+3 




008490 


* 










008491 


* RELEASE 


SEG 


DATA DECLARATIONS 




008492 












008493 


RLS . NUM 




EQU 


M.TPARMX+1 


SEG NUM 


008494 


* 










008495 


* REGION - 


- DATA DECLARATIONS 




008496 












008497 


RGN . BKPG 




DS 


2 


TEMP CONTAINER FOR BANK/PAGE 


008498 






PAGE 






008499 






REP 


60 
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008500 
















008501 


* MMGR 














008502 


* 














008503 


* THIS ROUTINE IS THE MAIN 


ENTRANCE TO THE 


MEMORY MANAGER 


008504 


* MODULE. 


IT FUNCTIONS 


AS 


A SWITCH, 


BASED 


UPON THE RECEIVED 


008505 


* REQUEST 


CODE, TO TRANSFER CONTROL TO THE 


ROUTINE THAT 


008506 


* HANDLES 


THE SPECIFIC 


SYSTEM CALL. 








008507 
















008508 




REP 




60 








008509 
















008510 


MMGR 


EQU 












008511 




LDA 




M.RQCODE 








008512 




BEQ 




MMGR010 






; "REQ. SEG" 


008513 




CMP 




#1 








008514 




BEQ 




MMGR020 






; "FIND. SEG" 


008515 




CMP 




#2 








008516 




BEQ 




MMGR030 






; "CHANGE. SEG" 


008517 




CMP 




#3 








008518 




BEQ 




MMGR040 






; "GET. SEG. INFO" 


008519 




CMP 




#4 








008520 




BEQ 




MMGR050 






; "GET. SEG. NUM" 


008521 




CMP 




#5 








008522 




BEQ 




MMGR060 






; "RELEASE. SEG" 


008523 


* 














008524 




LDA 




#BADSCNUM 








008525 




JSR 




SYSERR 








008526 
















008527 


MMGR010 


JMP 




REQ . SEG 








008528 


MMGR020 


JMP 




FIND. SEG 








008529 


MMGR030 


JMP 




CHG.SEG 








008530 


MMGR040 


JMP 




GET. SEG. INFO 






008531 


MMGR050 


JMP 




GET . SEG . NUM 






008532 


MMGR060 


JMP 




RELEASE . SEG 






008533 




PAGE 












008534 




REP 




60 








008535 


* 














008536 


* REQUEST 


SEG ( IN . BASE . BANKPAGE , LIMIT 


BANKPAGE, 


SEGID; OUT.SEGNUM) 


008537 
















008538 




REP 




60 








008539 
















008540 


REQ . SEG 


EQU 












008541 


* 














008542 


* CONVERT 


CALLER'S BASE 


.BANK/PAGE TO 


INTERNAL 


FMT 


008543 
















008544 




LDX 




RQ . BASE 








008545 




LDY 




RQ.BASE+1 








008546 




JSR 




CNVRT . IBP 








008547 




BCC 




RQ005 








008548 
















008549 


RQ.ERR 


RTS 










; ERR EXIT - INVALID 
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008550 






008551 


RQ005 


STX RQ . BASE 


008552 




STY RQ.BASE+1 


008553 




STA RQ. REGION 


008554 






008555 


* CONVERT CALLER' S LIMIT . BANK/PAGE TO INTERNAL FMT 


008556 






008557 




LDX RQ.LIM 


008558 




LDY RQ.LIM+1 


008559 




JSR CNVRT . IBP 


008560 




BCS RQ . ERR 


008561 




STX RQ.LIM 


008562 




STY RQ.LIM+1 


008563 


* 




008564 


* IF BASE AND 


LIMIT ARE IN DIFFERENT REGIONS THEN 


008565 






008566 




CMP RQ. REGION 


008567 




BNE RQ . ERR1 


008568 


* IF CALLER'S 


BASE > LIMIT THEN ERR 


008569 






008570 




LDA RQ.LIM 


008571 




CMP RQ . BASE 


008572 




LDA RQ.LIM+1 


008573 




SBC RQ.BASE+1 


008574 




BCC RQ . ERR1 


008575 






008576 


* PREV SEGNUM: 


=NULL; NEXT SEGNUM: =FIRST ENTRY 


008577 






008578 




LDX #0 


008579 




LDY ST . ENTRY 


008580 






008581 


* IF NO SEGS IN SEG TABLE THEN ALLOCATE REQUESTED 


008582 






008583 




BEQ RQ030 


008584 






008585 


* IF FIRST SEG 


IN SEG TABLE BELOW REQUESTED SEG 


008586 


* THEN ALLOCATE SEG 


008587 






008588 




LDA ST . LIML, Y 


008589 




CMP RQ . BASE 


008590 




LDA ST . LIMH, Y 


008591 




SBC RQ.BASE+1 


008592 




BCC RQ030 


008593 


* 




008594 


* ADVANCE TO NEXT SEG ENTRY 


008595 


* 




008596 


RQ010 


TYA 


008597 




TAX 


008598 




LDA ST . FLINK, Y 


008599 




TAY 



ERR - INVALID BANK/PAGE 



ERR - INVALID BANK/PAGE PAIR 



; ERR - INVALID BANK/PAGE PAIR 
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008600 






008601 


* IF THERE IS NO NEXT 


SEG ENTRY 


008602 


* IF REQUESTED SEG 


IS BELOW PREV SEG 


008603 


* THEN ALLOCATE 


REQ SEG 


008604 


* ELSE ERR 




008605 






008606 


BNE 


RQ020 


008607 


LDA 


RQ.LIM 


008608 


CMP 


ST. BASEL, X 


008609 


LDA 


RQ.LIM+1 


008610 


SBC 


ST.BASEH,X 


008611 


BCC 


RQ030 


008612 






008613 


BCS 


RQ . ERR2 


008614 






008615 


* IF REQUESTED LIMIT 


>= PREV SEG'S BASE THEN 


008616 






008617 


RQ020 LDA 


RQ.LIM 


008618 


CMP 


ST. BASEL, X 


008619 


LDA 


RQ.LIM+1 


008620 


SBC 


ST.BASEH,X 


008621 


BCS 


RQ . ERR2 


008622 


* 




008623 


* IF REQUESTED BASE > 


NEXT SEG'S LIMIT 


008624 


* THEN ALLOCATE REQUESTED SEGMENT 


008625 






008626 


LDA 


ST.LIML, Y 


008627 


CMP 


RQ . BASE 


008628 


LDA 


ST.LIMH, Y 


008629 


SBC 


RQ.BASE+1 


008630 


BCS 


RQ010 


008631 


* 




008632 


RQ030 TXA 




008633 


JSR 


GET . FREE 


008634 


BCS 


RQ . ERR3 


008635 






008636 


* ENTER BASE, LIMIT AND ID IN NEW SEG ENTRY 


008637 






008638 


TAX 




008639 


LDA 


RQ . BASE 


008640 


STA 


ST. BASEL, X 


008641 


LDA 


RQ.BASE+1 


008642 


STA 


ST.BASEH,X 


008643 


* 




008644 


LDA 


RQ.LIM 


008645 


STA 


ST.LIML,X 


008646 


LDA 


RQ.LIM+1 


008647 


STA 


ST.LIMH,X 


008648 






008649 


LDA 


RQ. ID 



; ERR - SEGMENT REQUEST DENIED 



ERR - SEGMENT REQUEST DENIED 



; NO, ADVANCE TO NEXT SEGMENT 
; ALLOCATE REQUESTED SEGMENT 
; ERR - SEG TABLE FULL 
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008650 
008651 
008652 
008653 
008654 
008655 
008656 
008657 
008658 
008659 
008660 
008661 
008662 
008663 
008664 
008665 
008666 
008667 
008668 
008669 
008670 
008671 
008672 
008673 
008674 
008675 
008676 
008677 
008678 
008679 
008680 
008681 
008682 
008683 
008684 
008685 
008686 
008687 
008688 
008689 
008690 
008691 
008692 
008693 
008694 
008695 
008696 
008697 
008698 
008699 



STA ST.ID,X 
* RETURN NEW SEG NUM TO CALLER AND RETURN 

#0 

(RQ.NUM) , Y 



LDY 
TXA 
STA 



RQ . ERR1 
RQ . ERR2 

RQ . ERR3 



CLC 
RTS 

LDA 
JSR 
LDA 
JSR 

LDA 
JSR 
PAGE 
REP 



#BADBKPG 
SYSERR 
#SEGRQDN 
SYSERR 

#SEGTBLFULL 
SYSERR 

60 



NORMAL EXIT 

ERR EXIT 
ERR EXIT 

ERR EXIT 



* FIND . SEG (IN. SRCHMODE, SEGID; INOUT . PAGECT; 

* OUT. BASE. BKPG, LIMIT. BKPG, SEGNUM) 

REP 60 
FIND. SEG EQU * 

* RETRIEVE PAGE COUNT PARAMETER AND CLEAR ERR FLAG 



FIND001 



LDY 
LDA 
STA 
INY 
LDA 
STA 

BNE 
LDA 
BNE 
LDA 
JSR 

LDA 
STA 



#0 

(F.PGCT) , Y 
FX.PGCT 

(F.PGCT) , Y 
FX.PGCT+1 

FIND001 

FX.PGCT 

FIND001 

#BADPGCNT 

SYSERR 

#FALSE 
F.ERR 



ERR, PAGECT=0, EXIT 



* IF SEARCH MODE>2 THEN ERR 

LDA SRCHMODE 
CMP #3 
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008700 
008701 
008702 
008703 
008704 
008705 
008706 
008707 
008708 
008709 
008710 
008711 
008712 
008713 
008714 
008715 
008716 
008717 
008718 
008719 
008720 
008721 
008722 
008723 
008724 
008725 
008726 
008727 
008728 
008729 
008730 
008731 
008732 
008733 
008734 
008735 
008736 
008737 
008738 
008739 
008740 
008741 
008742 
008743 
008744 
008745 
008746 
008747 
008748 
008749 



BCC 
LDA 
JSR 



FIND005 

#BADSRCHMODE 

SYSERR 



; ERR EXIT 



INITIALIZE NEXT FREE SEGMENT SUBROUTINE, 
AND BIGGEST FREE SEGMENT PAGE COUNT 



FIND005 JSR 
LDA 
STA 
STA 

* GET NEXT FREE SEGMENT 



FIND010 



JSR 
BCC 



NXTFRSEG . I 
#0 

BFS.PGCT 
BFS.PGCT+1 



NXTFRSEG 
FIND015 



; PROCESS FREE SEGMENT 



NO MORE FREE SEGMENTS LEFT 
RETURN BIGGEST FREE SEGMENT FOUND 
ALONG WITH ERR 



LDA 
STA 
LDX 
JMP 



#TRUE 
F.ERR 

#0 

FIND070 



; SEG#:=0 



FREE SEGMENT FOUND. 

IF FREE SEGMENT > BIGGEST FREE SEGMENT THEN BFS : =CFS 



FIND015 



FIND020 



LDA 
CMP 
LDA 
SBC 
BCS 

LDX 
LDA 
STA 
DEX 
BPL 



BFS.PGCT 

CFS.PGCT 

BFS.PGCT+1 

CFS.PGCT+1 

FIND030 

#6 

CFS.PGCT, X 
BFS.PGCT,X 

FIND020 



IF BFS.PGCT<F.PGCT THEN GET NEXT FREE SEGMENT 



FIND030 



LDA 
CMP 
LDA 
SBC 
BCC 



BFS.PGCT 

FX.PGCT 

BFS.PGCT+1 

FX.PGCT+1 

FIND010 



* BFS. BASE :=BFS.LIM-FX.PGCT+1 
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008750 


* BFS.PGCT:=FX.PGCT 




008751 






008752 


LDA 


BFS.LIM 


008753 


SBC 


FX.PGCT 


008754 


STA 


BFS . BASE 


008755 


LDA 


BFS.LIM+1 


008756 


SBC 


FX.PGCT+1 


008757 


STA 


BFS.BASE+1 


008758 


INC 


BFS. BASE 


008759 


BNE 


FIND050 


008760 


INC 


BFS.BASE+1 


008761 






008762 


FIND050 LDA 


FX.PGCT 


008763 


STA 


BFS.PGCT 


008764 


LDA 


FX.PGCT+1 


008765 


STA 


BFS.PGCT+1 


008766 






008767 


* DELINK ENTRY FROM FREE 


LIST, AND LINK 


008768 


* IT INTO SEGMENT LIST 




008769 






008770 


LDA 


BFS. BLINK 


008771 


JSR 


GET . FREE 


008772 


BCC 


FIND060 


008773 


RTS 




008774 






008775 


* ST. ID (NEW) :=F.ID 




008776 


* ST. BASE (NEW) :=BFS. BASE 




008777 


* ST.LIM(NEW) :=BFS.LIM 




008778 






008779 


FIND060 TAX 




008780 


LDA 


F. ID 


008781 


STA 


ST.ID,X 


008782 






008783 


LDA 


BFS. BASE 


008784 


STA 


ST. BASEL, X 


008785 


LDA 


BFS.BASE+1 


008786 


STA 


ST.BASEH,X 


008787 






008788 


LDA 


BFS.LIM 


008789 


STA 


ST.LIML,X 


008790 


LDA 


BFS.LIM+1 


008791 


STA 


ST.LIMH,X 


008792 






008793 


* RETURN SEGNUM, PAGE COUNT, BASE BANK/PAGE 


008794 


* TO CALLER 




008795 


FIND070 LDY 


#0 


008796 


TXA 




008797 


STA 


(F.NUM) , Y 


008798 






008799 


LDA 


BFS.PGCT 



ERR - SEG TABLE FULL 
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008800 




STA 


(F.PGCT) , Y 




008801 




INY 






008802 




LDA 


BFS.PGCT+1 




008803 




STA 


(F.PGCT) , Y 




008804 










008805 




LDX 


BFS . BASE 




008806 




LDY 


BFS.BASE+1 




008807 




JSR 


CNVRT . XBP 




008808 




TYA 






008809 




LDY 


#1 




008810 




STA 


(F .BASE) , Y 




008811 




DEY 






008812 




TXA 






008813 




STA 


(F .BASE) , Y 




008814 










008815 




LDX 


BFS.LLM 




008816 




LDY 


BFS.LLM+1 




008817 




JSR 


CNVRT . XBP 




008818 




TYA 






008819 




LDY 


#1 




008820 




STA 


(F.LIM) , Y 




008821 




DEY 






008822 




TXA 






008823 




STA 


(F.LIM) , Y 




008824 










008825 




LDA 


F.ERR 


; IF ERR FLAG TRUE THEN REPORT 


008826 




BNE 


FIND. ERR 




008827 










008828 




CLC 






008829 




RTS 




; NORMAL EXIT 


008830 










008831 


FIND. ERR 


LDA 


#SEGRQDN 




008832 




JSR 


SYSERR 


; ERR EXIT 


008833 










008834 




CHN 


MEMMGR . B . SRC 




008835 










008836 


************************************************************************* 


008837 


* END OF APPLE 


/// SOS 


1.3 SOURCE CODE FILE: 


MEMMGR. A. SRC 


008838 


************************************************************************* 


008839 










008840 










008841 
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00884? 










008843 


DOCUMENT : 


SOS1.3.2of5.TWO: 


SOS . MMGR . B . TEXT 


008844 




















008845 

\J \J <J> (J t: ~J 










008846 


************************************************************************* 


008847 


* 


APPLE /// SOS 1.3 SOURCE 


CODE FILE: MEMMGR . B . SRC 


008848 


************************************************************************* 


008849 


* 


ASSEMBLER: APPLE ] [ 6502 


ASSEMBLER from APPLE COMPUTER TOOLKIT 


008850 










008851 






PAGE 




008852 






REP 


60 


008858 


* 








008854 


* 


NEXT FREE SEGMENT - INITIALIZATION 


008855 


* 








008856 


* 


INPUT : 


SEGMENT TABLE 




008857 


* 


OUTPUT : 


CFS. PTR "1ST FREE BANK/PAGE IN VIRTUAL MEMORY 


008858 


* 




CFS.PREV "PREVIOUS SEGMENT EXAMINED" 


008859 


* 




CFS. NEXT "SEGMENT FOLLOWING CFS.PREV" 


008860 


* 


ERROR: 


NONE (IF NO FREE 


BK/PG FOUND, THEN CFS . PTR="FFFF" ) 


008861 


* 








008862 






REP 


60 


008863 


* 








008864 


NXTFRSEG . I EQU 


* 


008865 

v U U U ^ 


* 








008866 


* 


CFS . PTR 


:= VRT.LIM 




008867 

v U U U U / 


* 


CFS.PREV := 




008868 


* 


CFS. NEXT := ST. ENTRY 




008869 


* 








008870 






LDA 


>VRT.LIM 


008871 






STA 


CFS. PTR 


008872 






LDA 


>VRT.LIM+1 


008878 






STA 


CFS.PTR+1 


008874 


* 








008875 






LDA 


#0 


008876 






STA 


CFS.PREV 


008877 

\J \J KJ \J 1 1 


* 








008878 






LDX 


ST . ENTRY 


008879 






STX 


CFS. NEXT 


008880 


* 








008881 


* 


LO : IF 


CFS.NEXT=0 THEN 


DONE 


008882 


* 








008883 


FRSGI010 


BEQ 


FRSGI .EXIT 


008884 


* 








008885 


* 


IF ST. LIM (CFS. NEXT) <=VRT 


.LIM THEN GOTO LI 


008886 


* 








008887 






LDA 


>VRT.LIM 


008888 






CMP 


ST.LIML,X 


008889 






LDA 


>VRT.LIM+1 


008890 






SBC 


ST.LIMH,X 
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008891 




BCS 




FRSGI020 


008892 










008893 


* 


CFS . PREV : =CFS . NEXT 






008894 


* 


CFS . NEXT : =ST . FLINK (CFS 


.NEXT) 


008895 




GOTO L0 






008896 


* 








008897 




STX 




CFS. PREV 


008898 




LDA 




ST. FLINK, X 


008899 




TAX 






008900 




STX 




CFS. NEXT 


008901 




JMP 




FRSGI010 


008902 


* 








008903 


* 


LI: IF ST.LIM(CFS 


.NEXT) <VRT.LIM THEN DONE 


008904 


* 








008905 


FRSGI020 LDA 




ST.LIML,X 


008906 




CMP 




>VRT.LIM 


008907 




LDA 




ST.LIMH,X 


008908 




SBC 




>VRT.LIM+1 


008909 




BCC 




FRSGI .EXIT 


008910 










008911 










008912 




JSR 




NXTFRPG 


008913 


* 








008914 


FRSGI.EXIT RTS 






008915 




PAGE 






008916 




REP 




60 


008917 


* 








008918 


* 


NEXT FREE SEGMENT 






008919 


* 








008920 




INPUT: SEG TABLE 






008921 


★ 


OUTPUT: CFS. BLINK 






008922 


* 


CFS. BASE 






008923 




CFS. LIMIT 






008924 


* 


CFS.PGCT 






008925 




OWN: CFS. PREV 






008926 


* 


CFS. NEXT 






008927 


* 


CFS.PTR 






008928 


* 








008929 




BUILDS A CANDIDATE 


FREE SEGMENT, WHOSE LIMIT 


008930 




THE CURRENT FREE PAGE 


(CFS.PTR) . 


008931 


* 








008932 




REP 




60 


008933 


* 








008934 


NXTFRSEG EQU 






008935 










008936 


* 


IF CFS . PTR="FFFF" THEN 


EXIT 


008937 










008938 




LDA 




CFS.PTR+1 


008939 




BPL 




FRSG010 


008940 











; NORMAL EXIT 
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008941 
008942 
008943 
008944 
008945 
008946 
008947 
008948 
008949 
008950 
008951 
008952 
008953 
008954 
008955 
008956 
008957 
008958 
008959 
008960 
008961 
008962 
008963 
008964 
008965 
008966 
008967 
008968 
008969 
008970 
008971 
008972 
008973 
008974 
008975 
008976 
008977 
008978 
008979 
008980 
008981 
008982 
008983 
008984 
008985 
008986 
008987 
008988 
008989 
008990 



SEC 
RTS 

CFS . BLINK : =CFS . PREV 
CFS.LIM:=CFS.PTR 



EXIT - NO MORE FREE SEGMENTS LEFT 



FRSG010 



LDA 
STA 

LDA 
STA 
LDA 
STA 



CFS . PREV 
CFS. BLINK 

CFS.PTR 
CFS.LIM 
CFS.PTR+1 
CFS.LLM+1 



IF CFS.NEXT=0 THEN CFS. BASE :=0 

ELSE CFS. BASE :=ST.LLM (CFS. NEXT) +1 



FRSG020 



LDA 
BNE 
LDA 
STA 
STA 
BEQ 

LDX 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 



CFS . NEXT 

FRSG020 

#0 

CFS. BASE 

CFS.BASE+1 

FRSG030 

CFS. NEXT 

ST.LLML,X 
#1 

CFS. BASE 
ST.LIMH,X 

#0 

CFS.BASE+1 



CFS.BASE0:=CFS.LIM AND $FF80 



FRSG030 LDY 
STY 
LDA 
AND 
STA 

* CFS.BASE1:=CFS.BASE0-32K 

SEC 
SBC 
STA 
TYA 
SBC 
STA 
BCS 



CFS.LIM+1 

CFS.BASE0+1 

CFS.LIM 

#$80 

CFS. BASE 



#$80 

CFS. BASE 1 
#0 

CFS.BASE1+1 
FRSG035 
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008991 








LDA 


#0 


008992 








STA 


CFS.BASE1 


008993 








STA 


CFS.BASE1+1 


008994 


* 










008995 




IF 


CFS. 


BASE>=CFS.BASE0 THEN GOTO LI 


008996 












008997 


FRSG035 


LDA 


CFS. BASE 


008998 








CMP 


CFS. BASE 


008999 








LDA 


CFS. BASE+1 


009000 








SBC 


CFS.BASE0+1 


009001 








BCS 


FRSG050 


009002 












009003 


* 


IF 


SEARCH MODE=0 THEN 


CFS . BASE : =CFS . BASE0 


009004 


* 


GOTO LI 






009005 












009006 








LDA 


SRCHMODE 


009007 








BNE 


FRSG040 


009008 








LDA 


CFS. BASE 


009009 








STA 


CFS. BASE 


009010 








LDA 


CFS.BASE0+1 


009011 








STA 


CFS. BASE+1 


009012 








JMP 


FRSG050 


009013 












009014 


* 


IF 


CFS. 


BASE<CFS . BASE1 


AND SEARCH MODE=l 


009015 


* 




THEN 


CFS. BASE :=CFS. 


BASE1 


009016 












009017 


FRSG040 


LDA 


CFS. BASE 


009018 








CMP 


CFS. BASE 1 


009019 








LDA 


CFS. BASE+1 


009020 








SBC 


CFS.BASE1+1 


009021 








BCS 


FRSG050 


009022 


* 










009023 








LDA 


SRCHMODE 


009024 








CMP 


#1 


009025 








BNE 


FRSG050 


009026 












009027 








LDA 


CFS.BASE1 


009028 








STA 


CFS. BASE 


009029 








LDA 


CFS.BASE1+1 


009030 








STA 


CFS. BASE+1 


009031 












009032 


* 


LI 


CFS . PGCT : =CFS . LIM-CFS . BASE+1 


009033 












009034 


FRSG050 


SEC 




009035 








LDA 


CFS.LIM 


009036 








SBC 


CFS. BASE 


009037 








STA 


CFS. PGCT 


009038 








LDA 


CFS.LLM+1 


009039 








SBC 


CFS. BASE+1 


009040 








STA 


CFS.PGCT+1 
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009041 
009042 
009043 
009044 
009045 
009046 
009047 
009048 
009049 
009050 
009051 
009052 
009053 
009054 
009055 
009056 
009057 
009058 
009059 
009060 
009061 
009062 
009063 
009064 
009065 
009066 
009067 
009068 
009069 
009070 
009071 
009072 
009073 
009074 
009075 
009076 
009077 
009078 
009079 
009080 
009081 
009082 
009083 
009084 
009085 
009086 
009087 
009088 
009089 
009090 



INC 
BNE 
INC 



CFS.PGCT 

FRSG052 

CFS.PGCT+1 



* ADVANCE FREE PAGE POINTER TO NEXT FREE PAGE 

* IF SEARCH MODEOl THEN L2 : 



FRSG052 



LDA 
CMP 
BNE 



SRCHMODE 
#1 

FRSG060 



* IF CFS.BASE < CFS.BASE0 THEN CFS .PTR:=CFS .BASE0-1 



LDA 
CMP 
LDA 
SBC 
BCS 

LDY 
LDX 
BNE 
DEY 
DEX 
STX 
STY 

JMP 

* L2: CFS.PTR:=CFS.BASE-1 



FRSG055 



FRSG060 



SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 



CFS . BASE 
CFS. BASE 
CFS.BASE+1 
CFS.BASE0+1 
FRSG060 

CFS.BASE0+1 
CFS. BASE 
FRSG055 



CFS.PTR 
CFS.PTR+1 

FRSG070 



CFS . BASE 
#1 

CFS.PTR 

CFS.BASE+1 

#0 

CFS.PTR+1 



AND EXIT 



IF CFS . PTR="FFFF" OR CFS.NEXT=0 THEN EXIT 



BCC 
LDA 
BEQ 



FRSG070 
CFS. NEXT 
FRSG070 



* IF CFS.PTR > ST. LIM (CFS. NEXT) THEN EXIT 



LDX 
LDA 
CMP 



CFS. NEXT 

ST.LIML,X 

CFS.PTR 
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009091 




LDA 


ST.LIMH,X 


009092 




SBC 


CFS.PTR+1 


009093 




BCC 


FRSG070 


009094 








009095 


* 


OTHERWISE, ADVANCE CFS 


PTR TO NEXT FREE PAGE BELOW NEXT 


009096 


* 


SEGMENT IN SEGMENT LIST 


009097 








009098 




JSR 


NXTFRPG 


009099 


* 






009100 


FRSG070 CLC 




009101 




RTS 


; EXIT - FREE 


009102 




PAGE 




009103 




REP 


60 


009104 


* 






009105 




NEXT FREE PAGE 




009106 








009107 


* 


"WALKS" THE FREE PAGE 


PTR (CFS. PTR) TO THE NEXT FREE PAGE 


009108 


* 


IMMEDIATELY BELOW THE 


CURRENT FREE SEGMENT. 


009109 


* 






009110 




REP 


60 


009111 








009112 


NXTFRPG EQU 


* 


009113 








009114 


* 


L0: CFS. PTR:=ST. BASE (CFS. NEXT) -1 


009115 


* 


IF CFS.PTR="FFFF" 


THEN DONE 


009116 








009117 




LDX 


CFS. NEXT 


009118 




SEC 




009119 




LDA 


ST. BASEL, X 


009120 




SBC 


#1 


009121 




STA 


CFS. PTR 


009122 




LDA 


ST.BASEH,X 


009123 




SBC 


#0 


009124 




STA 


CFS.PTR+1 


009125 




BCC 


NFRPG . EXIT 


009126 








009127 


* 


CFS . PREV : =CFS . NEXT 




009128 




CFS . NEXT : =ST . FLINK (CFS 


.NEXT) 


009129 


* 






009130 




STX 


CFS. PREV 


009131 




LDA 


ST. FLINK, X 


009132 




TAX 




009133 




STX 


CFS. NEXT 


009134 








009135 


* 


IF CFS.NEXT=0 OR ST . LIM (CFS .NEXT) <CFS . PTR 


009136 


* 


THEN DONE 




009137 


* 


ELSE GOTO L0 




009138 








009139 




BEQ 


NFRPG. EXIT 


009140 




LDA 


ST.LIML,X 



FREE SEGMENT FOUND 
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009141 


CMP 


CFS.PTR 




009142 


LDA 


ST.LIMH,X 




009143 


SBC 


CFS.PTR+1 




009144 


BCS 


NXTFRPG 




009145 


* 






009146 


NFRPG . EXIT RTS 




; NORMAL EXIT 


009147 


PAGE 






009148 


REP 


60 




009149 








009150 


* CHANGE . SEG ( IN . SEGNUM, 


CHG . MODE ; INOUT . PAGECT) 


SYSTEM CALL 


009151 








009152 


REP 


60 




009153 


* 






009154 


CHG.SEG EQU 






009155 








009156 


* MOVE CALLER'S PAGE COUNT TO INTERNAL BUFFER 




009157 








009158 


LDY 


#0 




009159 


LDA 


(CHG.PGCT) , Y 




009160 


STA 


CHG.PGCTX 




009161 


INY 






009162 


LDA 


(CHG.PGCT) , Y 




009163 


STA 


CHG.PGCTX+1 




009164 








009165 


* IF SEG# OUT OF RANGE 


OR ST . FLINK (SEG# ) =FREE 


THEN ERR 


009166 








009167 


LDX 


CHG . NUM 




009168 


BEQ 


CHGS . ERR 




009169 


CPX 


#ST.CNT 




009170 


BCS 


CHGS . ERR 




009171 


LDA 


ST. FLINK, X 




009172 


BPL 


CHGS005 




009173 


* 






009174 


CHGS . ERR LDA 


#BADSEGNUM 




009175 


JSR 


SYSERR 


; ERR EXIT 


009176 


REP 


35 




009177 


* CASE OF CHANGE MODE 






009178 


REP 


35 




009179 


CHGS005 LDY 


CHG. MODE 




009180 


CPY 


#1 




009181 


BCC 


CHGS010 




009182 


BEQ 


CHGS020 




009183 


CPY 


#3 




009184 


BCC 


CHGS030 




009185 


BEQ 


CHGS040 




009186 








009187 


LDA 


#BADCHGMODE 




009188 


JSR 


SYSERR 


; ERR EXIT 


009189 


PAGE 






009190 


REP 


35 
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009191 


* CHANGE MODE 


= (BASE UP) 


009192 




REP 


35 


009193 


* CHG.NEW:=ST 


BASE (SEG#) +PGCT 


009194 








009195 


CHGS010 


CLC 




009196 




LDA 


ST. BASEL, X 


009197 




ADC 


CHG.PGCTX 


009198 




STA 


CHG . NEW 


009199 




LDA 


ST.BASEH,X 


009200 




ADC 


CHG.PGCTX+1 


009201 




STA 


CHG.NEW+1 


009202 


* 






009203 




BCS 


CHGS014 


009204 








009205 


* IF CHG.NEW <= ST.LIM(SEG#) THEN EXIT 


009206 








009207 




LDA 


ST.LIML,X 


009208 




CMP 


CHG . NEW 


009209 




LDA 


ST.LIMH,X 


009210 




SBC 


CHG.NEW+1 


009211 




BCS 


CHGS016 


009212 








009213 


* OTHERWISE, CHG.NEW:=ST 


.LIM(SEG#) 


009214 








009215 


CHGS014 


LDA 


ST.LIML,X 


009216 




STA 


CHG . NEW 


009217 




LDA 


ST.LIMH,X 


009218 




STA 


CHG.NEW+1 


009219 








009220 


CHGS016 


JMP 


CHGS.EXIT 


009221 




REP 


35 


009222 


* CHANGE MODE 


= 1 (BASE DOWN) 


009223 




REP 


35 


009224 


* CHG.NEW:=ST 


BASE (SEG#) 


-PGCT 


009225 








009226 


CHGS020 


SEC 




009227 




LDA 


ST. BASEL, X 


009228 




SBC 


CHG.PGCTX 


009229 




STA 


CHG . NEW 


009230 




LDA 


ST.BASEH,X 


009231 




SBC 


CHG.PGCTX+1 


009232 




STA 


CHG.NEW+1 


009233 




BCS 


CHGS050 


009234 




BCC 


CHGS052 


009235 




REP 


35 


009236 


* CHANGE MODE 


= 2 (LIMIT 


UP) 


009237 




REP 


35 


009238 


* CHG.NEW:=ST 


LIM(SEG#) +PGCT 


009239 








009240 


CHGS030 


CLC 





Apple/// Computer I nformation 



; OVERFLOW, PEG IT 



; OVERFLOW, PEG IT 
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009241 


LDA 


ST.LIML,X 


009242 


ADC 


CHG.PGCTX 


009243 


STA 


CHG . NEW 


009244 


LDA 


ST.LIMH,X 


009245 


ADC 


CHG.PGCTX+1 


009246 


STA 


CHG.NEW+1 


009247 


BCC 


CHGS050 


009248 


BCS 


CHGS052 


009249 


REP 


35 


009250 


* CHANGE MODE = 3 (LIMIT 


DOWN) 


009251 


REP 


35 


009252 


* CHG.NEW:=ST.LIM(SEG#) 


-PGCT 


009253 


* 




009254 


CHGS040 SEC 




009255 


LDA 


ST.LIML,X 


009256 


SBC 


CHG.PGCTX 


009257 


STA 


CHG . NEW 


009258 


LDA 


ST.LIMH,X 


009259 


SBC 


CHG.PGCTX+1 


009260 


STA 


CHG.NEW+1 


009261 


BCC 


CHGS044 


009262 


* 




009263 


* IF CHG.NEW >= ST . BASE (SEG#) THEN EXIT 


009264 






009265 


LDA 


CHG . NEW 


009266 


CMP 


ST. BASEL, X 


009267 


LDA 


CHG.NEW+1 


009268 


SBC 


ST.BASEH,X 


009269 


BCS 


CHGS04 6 


009270 






009271 


* OTHERWISE CHG.NEW:=ST 


.BASE (SEG#) 


009272 


* 




009273 


CHGS044 LDA 


ST. BASEL, X 


009274 


STA 


CHG . NEW 


009275 


LDA 


ST.BASEH,X 


009276 


STA 


CHG.NEW+1 


009277 






009278 


CHGS04 6 JMP 


CHGS.EXIT 


009279 






009280 


* DETERMINE NEW BANK/PAGE'S REGION, 


009281 


* IF NEW BANK/PAGE IS INVALID THEN 


009282 


* SET TO BASE OR LIMIT 


(CASE CHANGE MOD 


009283 






009284 


CHGS050 LDX 


CHG . NEW 


009285 


LDY 


CHG.NEW+1 


009286 


JSR 


REGION 


009287 


BCS 


CHGS052 


009288 


BNE 


CHGS052 


009289 


BEQ 


CHGS100 


009290 


CHGS052 LDA 


CHG . MODE 



; OVERFLOW, PEG IT 



; OVERFLOW, PEG IT 
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009291 
009292 
009293 
009294 
009295 
009296 
009297 
009298 
009299 
009300 
009301 
009302 
009303 
009304 
009305 
009306 
009307 
009308 
009309 
009310 
009311 
009312 
009313 
009314 
009315 
009316 
009317 
009318 
009319 
009320 
009321 
009322 
009323 
009324 
009325 
009326 
009327 
009328 
009329 
009330 
009331 
009332 
009333 
009334 
009335 
009336 
009337 
009338 
009339 
009340 



CHGS054 



CHGS056 



CMP 
BNE 
LDX 
LDY 
JMP 
LDX 
LDY 
STX 
STY 
PAGE 



CHGS054 

#>VRT.BASE 

#<VRT.BASE 

CHGS056 

>VRT.LIM 

>VRT.LIM+1 

CHG . NEW 

CHG.NEW+1 



* COMPUTE BANK /PAGE OF ADJACENT SEGMENT, IF ANY 

* CASE CHANGE MODE 

CHGS100 LDX CHG.NUM 

LDA CHG. MODE 

CMP #1 
BNE CHGS200 

* "1" IF ST.FLINK(SEG#)=0 THEN EXIT 

LDA ST.FLINK,X 
BEQ CHGS.EXIT 

* X,Y:=ST.LIM(ST.FLINK(SEG#) ) +1 

TAY 



LDA 
TAX 
LDA 
TAY 
INX 
BNE 
INY 

* IF CHG. NEW < X, Y 
CHGS110 CPY 

BCC 
BEQ 
BCS 

CHGS120 CPX 
BCC 
BCS 

* "2" IF ST. BLINK (SEG#) 
CHGS200 LDA 

BEQ 



ST.LIML, Y 



ST.LIMH, Y 



CHGS110 

THEN CHG.NEW:=X,Y 

CHG.NEW+1 

CHGS.EXIT 

CHGS120 

CHGS300 

CHG . NEW 

CHGS.EXIT 

CHGS300 
=0 THEN EXIT 

ST. BLINK, X 

CHGS.EXIT 



X,Y: 



ST. BASE ( ST. BLINK (SEG#) ) - 
TAY 



LDA 
TAX 
LDA 
TAY 
TXA 
BNE 
DEY 



ST. BASEL, Y 



ST.BASEH, Y 



CHGS210 
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009341 


CHGS210 




DEX 








009342 




IF CHG 


NEW > 


X, Y 


THEN CHG.NEW:=X, 


Y 


009343 






CPY 




CHG.NEW+1 




009344 






BCC 




CHGS300 




009345 






BEQ 




CHGS220 




009346 






BCS 




CHGS.EXIT 




009347 


CHGS220 




CPX 




CHG . NEW 




009348 






BCS 




CHGS.EXIT 




009349 














009350 


CHGS300 




STX 




CHG . NEW 




009351 






STY 




CHG.NEW+1 




009352 






PAGE 








009353 






REP 




35 




009354 














009355 


* COMPUTE DELTA PAGE 


COUNT AND RETURN IT 


TO 


009356 


* (CASE 


OF CHG 


MODE) 








009357 














009358 






REP 




35 




009359 


CHGS.EXIT 


LDX 




CHG . NUM 




009360 






LDY 




#0 




009361 






LDA 




CHG. MODE 




009362 






CMP 




#1 




009363 






BCC 




CHGS500 




009364 






BEQ 




CHGS510 




009365 






CMP 




#3 




009366 






BCC 




CHGS520 




009367 






BEQ 




CHGS530 




009368 














009369 


* "0" — 


- PAGECOUNT:= 


NEW- 


BASE 




009370 














009371 


CHGS500 




SEC 








009372 






LDA 




CHG . NEW 




009373 






SBC 




ST. BASEL, X 




009374 






STA 




(CHG.PGCT) , Y 




009375 






LDA 




CHG.NEW+1 




009376 






SBC 




ST.BASEH,X 




009377 






JMP 




CHGS600 




009378 














009379 


* M "L II 


- PAGECOUNT:= 


BASE 


-NEW 




009380 














009381 


CHGS510 




SEC 








009382 






LDA 




ST. BASEL, X 




009383 






SBC 




CHG . NEW 




009384 






STA 




(CHG.PGCT) , Y 




009385 






LDA 




ST.BASEH,X 




009386 






SBC 




CHG.NEW+1 




009387 






JMP 




CHGS600 




009388 














009389 


* "2" — 


- PAGECOUNT:= 


NEW- 


LIM 




009390 
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009391 


CHGS520 SEC 




009392 


LDA 


CHG . NEW 


009393 


SBC 


ST.LIML,X 


009394 


STA 


(CHG.PGCT) , Y 


009395 


LDA 


CHG.NEW+1 


009396 


SBC 


ST.LIMH,X 


009397 


JMP 


CHGS600 


009398 






009399 


* "3" — PAGECOUNT:= 


ilM-NEW 


009400 






009401 


CHGS530 SEC 




009402 


LDA 


ST.LIML,X 


009403 


SBC 


CHG . NEW 


009404 


STA 


(CHG.PGCT) , Y 


009405 


LDA 


ST.LIMH,X 


009406 


SBC 


CHG.NEW+1 


009407 






009408 


CHGS600 INY 




009409 


STA 


(CHG.PGCT) , Y 


009410 






009411 


* IF NEW PAGE COUNT 


< REQUESTED PAGECOUNT THEN ERR 


009412 


* 




009413 


TAX 




009414 


DEY 




009415 


LDA 


(CHG.PGCT) , Y 


009416 


CMP 


CHG.PGCTX 


009417 


TXA 




009418 


SBC 


CHG.PGCTX+1 


009419 


BCS 


CHGS610 


009420 


LDA 


#SEGRQDN 


009421 


JSR 


SYSERR ; ERR EXIT 


009422 






009423 


* OTHERWISE, ENTER CHG.NEW IN SEGMENT TABLE AND EXIT 


009424 


* 




009425 


CHGS610 LDX 


CHG . NUM 


009426 


LDA 


CHG. MODE 


009427 


CMP 


#2 


009428 


LDA 


CHG . NEW 


009429 


LDY 


CHG.NEW+1 


009430 


BCS 


CHGS620 


009431 


* 




009432 


STA 


ST. BASEL, X 


009433 


TYA 




009434 


STA 


ST.BASEH,X 


009435 


CLC 




009436 


RTS 


; NORMAL EXIT 


009437 






009438 






009439 


CHGS620 STA 


ST.LIML,X 


009440 


TYA 
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009441 
009442 
009443 
009444 
009445 
009446 
009447 
009448 
009449 
009450 
009451 
009452 



STA 
CLC 
RTS 

CHN 



ST.LIMH,X 



MEMMGR . C . SRC 



; NORMAL EXIT 



************************************************************************ 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: MEMMGR. B. SRC 

************************************************************************* 
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009453 
009454 
009455 
009456 
009457 
009458 
009459 
009460 
009461 
009462 
009463 
009464 
009465 
009466 
009467 
009468 
009469 
009470 
009471 
009472 
009473 
009474 
009475 
009476 
009477 
009478 
009479 
009480 
009481 
009482 
009483 
009484 
009485 
009486 
009487 
009488 
009489 
009490 
009491 
009492 
009493 
009494 
009495 
009496 
009497 
009498 
009499 
009500 
009501 



DOCUMENT : SOS1 . 3 . 2of 5 . TWO : SOS . MMGR . C . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: MEMMGR . C . SRC 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



PAGE 
REP 



60 



* GET . SEG . INFO ( IN . SEGNUM; OUT . BASE . BKPG, LIMIT . BKPG, PGCT, SEGID) 

REP 60 
GET. SEG. INFO EQU * 

* IF SEG# OUT OF BOUNDS OR ST . FLINK (SEG#) =ST . FREE THEN ERR 



LDX 
BEQ 
CPX 
BCS 
LDA 
BMI 



GSI .NUM 
GSI .ERR 
#ST.CNT 
GSI .ERR 
ST. FLINK, X 
GSI .ERR 



; ERR - INVALID SEGNUM 
; ERR - INVALID SEGNUM 
; ERR - INVALID SEGNUM 



RETURN BASE. BKPG TO CALLER 



LDY 
LDA 
TAX 
JSR 
TYA 
LDY 
STA 
DEY 
TXA 

STA (GSI. BASE), Y 

RETURN LIMIT. BKPG TO CALLER 



ST.BASEH,X 
ST. BASEL, X 

CNVRT . XBP 

#1 

(GSI. BASE) ,Y 



LDX 
LDY 
LDA 
TAX 
JSR 
TYA 
LDY 



GSI .NUM 

ST.LIMH,X 

ST.LIML,X 

CNVRT . XBP 

#1 
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009502 






STA 


(GSI.LIM) , Y 


009503 






DEY 




009504 






TXA 




009505 






STA 


(GSI -LIM) , Y 


009506 










009507 


* RETURN 


SEGID 


TO CALLER 




009508 










009509 






LDX 


GSI .NUM 


009510 






LDA 


ST.ID,X 


009511 






STA 


(GSI. ID) ,Y 


009512 










009513 


* COMPUTE 


PAGE 


COUNT 




009514 










009515 






SEC 




009516 






LDA 


ST.LIML,X 


009517 






SBC 


ST. BASEL, X 


009518 






TAY 




009519 






LDA 


ST.LIMH,X 


009520 






SBC 


ST.BASEH,X 


009521 






TAX 




009522 






INY 




009523 






BNE 


GSI010 


009524 






INX 




009525 










009526 


* RETURN 


PAGE 


COUNT TO CALLER 


009527 










009528 


GSI010 




TYA 




009529 






LDY 


#0 


009530 






STA 


(GSI.PGCT) , 


009531 






INY 




009532 






TXA 




009533 






STA 


(GSI.PGCT) , 


009534 










009535 






CLC 




009536 






RTS 




009537 


* 








009538 


GSI .ERR 




LDA 


#BADSEGNUM 


009539 






JSR 


SYSERR 


009540 






PAGE 




009541 






REP 


60 


009542 


* 








009543 


* GET.SEG 


. NUM ( IN . BANKPAGE ; 


OUT . SEGNUM) 


009544 










009545 










009546 






REP 


60 


009547 










009548 


GET . SEG . NUM 


EQU 




009549 










009550 


* CONVERT 


BANKPAGE TO INTERNAL FORMAT 


009551 











; NORMAL EXIT 



; ERR EXIT 
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009552 


LDX 


GSN.BKPG 


009553 


LDY 


GSN.BKPG+1 


009554 


JSR 


CNVRT . IBP 


009555 


BCS 


GSN. ERR 


009556 


STX 


GSN.BKPG 


009557 


STY 


GSN.BKPG+1 


009558 






009559 


* QUIT IF NO ENTRIES 


IN SEG TABLE 


009560 






009561 


LDA 


ST . ENTRY 


009562 


BEQ 


GSN.ERR1 


009563 






009564 


* LI: IF BANKP AGE > S T 


LIM(SEG#) THEN ERR 


009565 


* 




009566 


GSN010 TAX 




009567 


LDA 


ST.LIML,X 


009568 


CMP 


GSN.BKPG 


009569 


LDA 


ST.LIMH,X 


009570 


SBC 


GSN.BKPG+1 


009571 


BCC 


GSN.ERR1 


009572 






009573 


* IF BANKP AGE>=ST. BASE (SEG#) THEN FOUND 


009574 


* 




009575 


LDA 


GSN.BKPG 


009576 


CMP 


ST. BASEL, X 


009577 


LDA 


GSN.BKPG+1 


009578 


SBC 


ST.BASEH,X 


009579 


BCS 


GSN020 


009580 






009581 


* SEG#:=ST.FLINK(SEG#) ; GOTO LI 


009582 






009583 


LDA 


ST.FLINK,X 


009584 


BEQ 


GSN.ERR1 


009585 


JMP 


GSN010 


009586 






009587 


* RETURN SEG# TO CALLER 


009588 


* 




009589 


GSN020 LDY 


#0 


009590 


TXA 




009591 


STA 


(GSN.NUM) , Y 


009592 


CLC 




009593 


RTS 




009594 






009595 


GSN . ERR RTS 




009596 






009597 


GSN . ERR1 LDA 


#SEGNOTFND 


009598 


JSR 


SYSERR 


009599 


PAGE 




009600 


REP 


60 


009601 







; ERR - INVALID BANK PAGE 



; ERR - SEG NOT FOUND 



; ERR - SEG NOT FOUND 



; ERR - SEG NOT FOUND 



; NORMAL EXIT 
; ERROR EXIT 

; ERROR EXIT 
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009602 
009603 
009604 
009605 
009606 
009607 
009608 
009609 
009610 
009611 
009612 
009613 
009614 
009615 
009616 
009617 
009618 
009619 
009620 
009621 
009622 
009623 
009624 
009625 
009626 
009627 
009628 
009629 
009630 
009631 
009632 
009633 
009634 
009635 
009636 
009637 
009638 
009639 
009640 
009641 
009642 
009643 
009644 
009645 
009646 
009647 
009648 
009649 
009650 
009651 



* RELEASE . SEG ( IN . SEGNUM) SYSTEM CALL 

REP 60 
RELEASE . SEG EQU * 

* IF ST . FLINK ( SEG# ) =ST . FREE THEN ERR 



RELEASE ALL 



RLS.ALL 



RLS0.LOOP 



RLS006 



RLS0 .EXIT 



REL SEG 



* Y:=ST. FLINK 

* X:=ST. BLINK 

REL. SEG 



LDX 
BEQ 
CPX 
BCS 
LDA 
BMI 
BPL 
REP 



REP 
LDX 
BEQ 
STX 

LDA 
CMP 

LDA 
PHA 
BCC 
JSR 
PLA 
BEQ 
STA 
TAX 
BNE 

CLC 
RTS 
REP 



REP 
(SEG#) 
(SEG#) 

TAY 
LDA 
TAX 



RLS . NUM 
RLS . ALL 
#ST.CNT 
RLS . ERR 
ST. FLINK, X 
RLS . ERR 
REL. SEG 
35 



35 

ST . ENTRY 
RLS0 -EXIT 
RLS . NUM 

ST.ID,X 

#$10 

ST. FLINK, X 

RLS006 
REL. SEG 

RLS0 -EXIT 
RLS . NUM 

RLS .LOOP 



35 



35 



; RELEASE. SEG (SEG#=0) 

; ERR - SEG# TOO LARGE 

; ERR - INVALID SEGNUM 

; RELEASE. SEG (SEG#>0) 



; CARRY SET/CLEARED HERE 



; IF ID=SYS SEG THEN SKIP 
; RELEASE ONE SEGMENT 



; ALWAYS TAKEN 



; NORMAL EXIT ; ALL NON SYSTEM SEGMENTS RELEASED. 



ST. BLINK, X 
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009652 














009653 


* IF XO0 


THEN 


ST. FLINK (X) : 


=Y 


009654 


* 


ELSE 


ST . ENTRY : 


=Y 




009655 














009656 






BEQ 






RLS010 


009657 






TYA 








009658 






STA 






ST. FLINK, X 


009659 






JMP 






RLS020 


009660 


RLS010 




STY 






ST . ENTRY 


009661 


* 












009662 


* IF YO0 


THEN 


ST. BLINK (Y) : 


=X 


009663 














009664 






TYA 








009665 


RLS020 




BEQ 






RLS030 


009666 






TXA 








009667 






STA 






ST. BLINK, Y 


009668 














009669 


* ST . FLINK (SEG# ) :=ST 


.FREE 




009670 


* ST. FREE 


=SEG# 


AND 


#$80 






009671 














009672 


RLS030 




LDA 






ST. FREE 


009673 






LDX 






RLS . NUM 


009674 






STA 






ST. FLINK, X 


009675 






TXA 








009676 






ORA 






#$80 


009677 






STA 






ST. FREE 


009678 














009679 






CLC 








009680 






RTS 








009681 














009682 


RLS . ERR 




LDA 






#BADSEGNUM 


009683 






JSR 






SYSERR 


009684 






PAGE 








009685 






REP 






60 


009686 














009687 


* CONVERT 


INTERNAL BANK 


PAGE 


009688 














009689 


* INPUT: 


EXTERNAL BANK 


(X) 




009690 






PAGE 


(Y) 




009691 


* OUTPUT: 


INTERNAL BKPG 


LOW (X) 


009692 


* 


II 


BKPG 


HIGH (Y) 


009693 


* 


REGION (A) 


0=>VIRT BANK 


009694 


* 






1=>PHY BANK (0-$2000) 


009695 








2=> 


($A000-$FFFF) 


009696 


* ERROR: 


CARRY 


SET 


("INVALID BANK PAGE") 


009697 














009698 






REP 






60 


009699 














009700 


CNVRT . IBP 




EQU 








009701 















NORMAL EXIT 



ERR EXIT 
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009702 


* CONVERT 


FROM 


EXTERNAL 


TO INTERNAL 


009703 










009704 


* CASE OF 


BANK 


ADD PAGE BIAS 


009705 










009706 






TYA 




009707 






CPX 


#$F 


009708 






BEQ 


CNVI010 


009709 






BCS 


CNVI020 


009710 


* 








009711 






CMP 


#$20 


009712 






BCC 


CNVI . ERR1 


009713 






CMP 


#$A0 


009714 






BCS 


CNVI . ERR1 


009715 






SEC 




009716 






SBC 


#$20 


009717 






JMP 


CNVI 030 


009718 


* 








009719 


CNVI010 




CMP 


#$20 


009720 






BCS 


CNVI . ERR1 


009721 






CLC 




009722 






ADC 


#$80 


009723 






JMP 


CNVI 030 


009724 










009725 


CNVI020 




CPX 


#$10 


009726 






BNE 


CNVI . ERR1 


009727 






CMP 


#$A0 


009728 






BCC 


CNVI . ERR1 


009729 






SEC 




009730 






SBC 


#$80 


009731 










009732 


CNVI030 




TAY 




009733 






TXA 




009734 






LSR 


A 


009735 






TAX 




009736 






TYA 




009737 






BCC 


CNVI 040 


009738 






ORA 


#$80 


009739 










009740 


* EXCHANGE X & 


Y 




009741 










009742 


CNVI040 




PHA 




009743 






TXA 




009744 






TAY 




009745 






PLA 




009746 






TAX 




009747 










009748 


* COMPUTE 


REGION (VIRT=0 


,PHY1=1,PHY2 


009749 










009750 






JSR 


REGION 


009751 






BCS 


CNVI . ERR1 



BANK < "F" 



SANK 



BANK 



"10'' 



SHIFT BANK RIGHT ONE BIT 
INTO HIGH BIT OF PAGE BYTE. 



REGION RETURNED IN A REG. 
ERR - INVALID BANK PAGE 
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009752 










009753 






RTS 




009754 


* 








009755 


CNVI . ERR1 


LDA 


#BADBKPG 


009756 






JSR 


SYSERR 


009757 






PAGE 




009758 






REP 


60 


009759 










009760 


* 


CONVERT 


EXTERNAL BANK 


PAGE 


009761 










009762 




INPUT : 


INTERNAL BKPG 


LOW (X) 


009763 






ii 


HIGH (Y) 


009764 




OUTPUT : 


EXTERNAL BANK 


(X) 


009765 


* 




PAGE 


(Y) 


009766 




ERROR: 


NO ERROR CHECKING DONE. ASSUMES 


009767 




ARE VALID. 




009768 


* 








009769 






REP 


60 


009770 










009771 


CNVRT . XBP 


EQU 




009772 










009773 


* 


CONVERT 


FROM INTERNAL 


TO EXTERNAL FORMAT 


009774 










009775 






TXA 




009776 






ASL 


A 


009777 






TXA 




009778 






AND 


#$7F 


009779 






TAX 




009780 






TYA 




009781 






ROL 


A 


009782 






TAY 




009783 










009784 


* 


CASE OF 


BANK: ADD PAGE BIAS 


009785 










009786 






TXA 




009787 






CPY 


#$F 


009788 






BEQ 


CNVX020 


009789 






BCS 


CNVX010 


009790 










009791 






CLC 




009792 






ADC 


#$20 


009793 






JMP 


CNVX020 


009794 


* 








009795 


CNVX010 


CLC 




009796 






ADC 


#$80 


009797 










009798 


* 


EXCHANGE X & Y 




009799 










009800 


CNVX020 


PHA 




009801 






TYA 





; NORMAL EXIT 



; BANK = "F" 



; BANK < "F" 



; BANK = "10" 
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009802 






TAX 




009803 






PLA 




009804 






TAY 




009805 






RTS 




009806 






PAGE 




009807 






REP 


60 


009808 


* 








009809 


* 


REGION 






009810 


* 








009811 




INPUT : 


INTERNAL BKPG 


LOW (X) 


009812 


* 




ii 


HIGH (Y) 


009813 


* 


OUTPUT : 


REGION (A) 




009814 


* 




INTERNAL BKPG 


LOW (X) UNCHANGED 


009815 


* 




ii 


HIGH (Y) 


009816 




ERROR: 


CARRY SET ("INVALID BANK/PAGE") 


009817 


* 








009818 






REP 


60 


009819 


* 








009820 


REGION 


EQU 




009821 






STX 


RGN.BKPG 


009822 






STY 


RGN . BKPG+1 


009823 










009824 


* 


IF BANKPAGE>PHY2LIM THEN ERR 


009825 










009826 






LDA 


#>PHY2LLM 


009827 






CMP 


RGN.BKPG 


009828 






LDA 


#<PHY2LLM 


009829 






SBC 


RGN. BKPG+1 


009830 






BCC 


RGN . ERR 


009831 










009832 




IF BANKPAGE>=PHY2BASE 


THEN REGION: =2 


009833 


* 








009834 






LDA 


RGN.BKPG 


009835 






CMP 


#>PHY2BASE 


009836 






LDA 


RGN. BKPG+1 


009837 






SBC 


#<PHY2BASE 


009838 






BCC 


RGN010 


009839 






LDA 


#2 


009840 






BNE 


RGN040 


009841 


* 








009842 


* 


IF BANKPAGE>PHY1LIMIT 


THEN ERR 


009843 


* 








009844 


RGN010 


LDA 


#>PHY1LLM 


009845 






CMP 


RGN.BKPG 


009846 






LDA 


#<PHY1LLM 


009847 






SBC 


RGN. BKPG+1 


009848 






BCC 


RGN . ERR 


009849 










009850 




IF BANKPAGE>=PHY1BASE 


THEN REGION :=1 


009851 


* 









; NORMAL EXIT 



; ERR - INVALID BANK PAGE 



ERR - INVALID BANK PAGE 
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009852 




LDA 


RGN . BKPG 


009853 




CMP 


#>PHY1BASE 


009854 




LDA 


RGN . BKPG+1 


009855 




SBC 


#<PHY1BASE 


009856 




BCC 


RGN020 


009857 




LDA 


#1 


009858 




BNE 


RGN040 


009859 








009860 


* 


IF BANKPAGE>VIRTUAL LIMIT THEN ERR 


009861 


* 






009862 


RGN020 LDA 


>VRT.LIM 


009863 




CMP 


RGN. BKPG 


009864 




LDA 


>VRT.LIM+1 


009865 




SBC 


RGN. BKPG+1 


009866 




BCC 


RGN . ERR 


009867 




LDA 


#0 


009868 


* 






009869 


RGN040 CLC 




009870 




RTS 




009871 








009872 


RGN . ERR SEC 




009873 




RTS 




009874 




PAGE 




009875 




REP 


60 


009876 


* 






009877 




GET FREE 




009878 








009879 


* 


INPUT: PREVIOUS SEG # 


(A) 


009880 




OUTPUT: NEW SEG # 


(A) 


009881 


* 


ERROR: CARRY SET ("SEG 


TBL FULL") 


009882 








009883 




REP 


60 


009884 








009885 


GET . FREE EQU 




009886 


* 






009887 


* 


SAVE PREV SEG # IN X 




009888 




NOTE: PREV SEG # CARRIED IN X 


009889 




NEW SEG # CARRIED 


IN Y 


009890 








009891 




TAX 




009892 








009893 


* 


IF NO FREE ENTRIES THEN 


ERR 


009894 


* 






009895 




LDA 


ST . FREE 


009896 




CMP 


#$80 


009897 




BEQ 


GTFR.ERR 


009898 








009899 


* 


TURN OFF FREE FLAG (BIT7) AND DELINK 


009900 








009901 




AND 


#$7F 



; "N" FLAG ALWAYS REFLECTS REGION VAL IN A REG! 
; NORMAL EXIT 

; INVALID BANK PAGE 
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009902 




TAY 




009903 




LDA 


ST. FLINK, Y 


009904 




STA 


ST. FREE 


009905 








009906 




IF PREV SEG # IS NULL THEN LINK NEW ENTRY 


009907 


* 


OF SEGMENT LIST 




009908 








009909 




CPX 


#0 


009910 




BNE 


GTFR010 


009911 




LDA 


ST . ENTRY 


009912 




STA 


ST. FLINK, Y 


009913 




LDA 


#0 


009914 




STA 


ST. BLINK, Y 


009915 




STY 


ST . ENTRY 


009916 




JMP 


GTFR020 


009917 


* 






009918 


* 


OTHERWISE LINK NEW ENTRY 


TO PREV SEG # 


009919 


* 






009920 


GTFR010 LDA 


ST. FLINK, X 


009921 




STA 


ST. FLINK, Y 


009922 




TXA 




009923 




STA 


ST. BLINK, Y 


009924 




TYA 




009925 




STA 


ST. FLINK, X 


009926 


* 






009927 




IF ST . FLINK (NEW) ONULL THEN 


009928 




ST . BLINK (ST . FLINK (NEW) 


) :=NEWSEG # 


009929 


GTFR020 LDA 


ST. FLINK, Y 


009930 




BEQ 


GTFR030 


009931 




LDA 


ST. FLINK, Y 


009932 




TAX 




009933 




TYA 




009934 




STA 


ST. BLINK, X 


009935 


* 






009936 




RETURN WITH NEW SEG # 




009937 


* 






009938 


GTFR030 TYA 




009939 




CLC 




009940 




RTS 




009941 


* 






009942 


GTFR.ERR LDA 


#SEGTBLFULL 


009943 




JSR 


SYSERR 


009944 


* 






009945 




LST 


ON 


009946 


ZZEND EQU 




009947 


ZZLEN EQU 


ZZEND-ZZORG 


009948 




IFNE 


ZZLEN-LENMEMMG 


009949 




FAIL 


2, "SOSORG 


009950 




FIN 




009951 









; NORMAL EXIT 



FILE IS INCORRECT FOR MEMMGR" 
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009952 ****************************************** 

009953 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: MEMMGR . C . SRC 

009954 ************************************************************************* 
009955 

009956 
009957 
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009958 

\J \J *J ^/ \J 






009959 


DOCUMENT :SOS1.3.2of5.TWO: 


SOS. SCMGR. TEXT 


009960 






\j \J J \J \j 






009961 






009962 


************************************************************************* 


009963 


* APPLE /// SOS 1.3 SOURCE 


CODE FILE: SCMGR. SRC 


009964 




009965 


* ASSEMBLER: APPLE ] [ 6502 


ASSEMBLER from APPLE COMPUTER TOOLKIT 


009966 

\j \J J \J \J 






009967 


SBTL 


"SOS 1.1 SYSTEM CALL MANAGER" 


009968 


REL 




009969 


INCLUDE 


SOSORG, 6, 1, 254 


009970 


ORG 


ORGSCMGR 


009971 


ZZORG EQU 


* 


009972 


MSB 


OFF 


009973 


REP 


60 


009974 


* COPYRIGHT (C) APPLE COMPUTER INC. 1980 


009975 


* ALL RIGHTS RESERVED 


009976 


REP 


60 


009977 


* 




009978 


* SYSTEM CALL MANAGER (VERSION =1.10 ) 


009979 


* (DATE = 8/04/81) 


009980 


* 




009981 


* THE SYSTEM CALL MANAGER: 




009982 


* (1) RETRIEVE THE SYSCALL 


#, 


009983 

\J \J *s -J <J ~J 


* (2) DETERMINE THE LOCATION OF THE SYSTEM CALL PARMS AND 


009984 


* MOVE THEM TO THE SOS 


ZPAGE, 


009985 

\J \J ~S -J <J vj 


* (3) TRANSFER CONTROL TO 


THE APPROPRIATE INTERFACE MANAGER, 


009986 


* (FILE, DEVICE, UTILITY, MEMORY) 


009987 


* 




009988 

\J \J J \J \J 


REP 


60 


009989 


* 




009990 


ENTRY 


SCMGR 


009991 


* 




009992 


EXTRN 


FMGR 


009993 


EXTRN 


DMGR 


009994 


EXTRN 


UMGR 


009995 


EXTRN 


MMGR 


009996 


EXTRN 


DBUGBRK 


009997 


* 




009998 


EXTRN 


SYSERR 


009999 


EXTRN 


SERR 


010000 


EXTRN 


BADSCNUM 


010001 


EXTRN 


BADCZPAGE 


010002 


EXTRN 


BADXBYTE 


010003 


EXTRN 


BADSCPCNT 


010004 


EXTRN 


BADSCBNDS 


010005 


* 




010006 


EXTRN 


SZPAGE 
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010007 






EXTRN 


SXPAGE 






010008 






EXTRN 


CZPAGE 






010009 






EXTRN 


CXPAGE 






010010 






EXTRN 


CSPAGE 






010011 






PAGE 








010012 






REP 


60 






010013 


* 












010014 


* 


SYSTEM CALL PARAMETER DEFINITION TABLES 






010015 


* 












010016 




EACH ENTRY IS FOUR BYTES LONG. THE FIRST BYTE 


CONTAINS THE 




010017 




NUMBER OF PARMS IN THE CALL. THE REMAINING SIX NIBBLES, EACH 


010018 


* 


DEFINE A 


PARAMETER IN THE CALL. THE FIRST BIT 


OF THE 




010019 


* 


NIBBLE DEFINES WHETHER THE PARM IS INPUT (0) OR OUTPUT (1) . 




010020 


* 


THE NEXT 


BIT DEFINES 


WHETHER THE PARM IS BY VALUE (0) 




010021 


* 


OR BY REFERENCE (1) . 


THE FINAL TWO BITS SPECIFY THE 




010022 


* 


PARM LENGTH IN BYTES 


(E.G. 0=LENGTH OF 1, 3=LENGTH OF 4 BYTES) 


010023 














010024 






REP 


60 






010025 


* 












010026 


★ 


FILE SYSTEM CALL DEFINITIONS 






010027 














010028 


FSC.CNT 


EQU 


$13 






010029 


FSC.TBL 


EQU 


* 






010030 






DFB 


$3,$5D,$00,$00 


SCNUM=$C0 - 


CREATE 


010031 






DFB 


$1, $50, $00, $00 


" =$C1 - 


DESTROY 


010032 






DFB 


$2, $55, $00, $00 


" =$C2 - 


RENAME 


010033 






DFB 


$3,$5D,$00,$00 


" =$C3 - 


SET. FILE. INFO 


010034 






DFB 


$3,$5D,$00,$00 


" =$C4 - 


GET. FILE. INFO 


010035 






DFB 


$4, $55, $99, $00 


" =$C5 - 


VOLUME 


010036 






DFB 


$1, $50, $00, $00 


" =$C6 - 


SET. PREFIX 


010037 






DFB 


$2, $50, $00, $00 


" =$C7 - 


GET. PREFIX 


010038 






DFB 


$4, $58, $D0, $00 


" =$C8 - 


OPEN 


010039 






DFB 


$3, $00, $00, $00 


" =$C9 - 


NEW . LINE 


010040 






DFB 


$4, $05, $19, $00 


" =$CA - 


READ 


010041 






DFB 


$3, $05, $10, $00 


" =$CB - 


WRITE 


010042 






DFB 


$1, $00, $00, $00 


" =$CC - 


CLOSE 


010043 






DFB 


$1, $00, $00, $00 


" =$CD - 


FLUSH 


010044 






DFB 


$3, $00, $30, $00 


" =$CE - 


SET. MARK 


010045 






DFB 


$2, $0B, $00, $00 


" =$CF - 


GET. MARK 


010046 






DFB 


$3, $00, $30, $00 


" =$D0 - 


SET. EOF 


010047 






DFB 


$2,$0B,$00,$00 


" =$D1 - 


GET. EOF 


010048 






DFB 


$1, $00, $00, $00 


" =$D2 - 


SET . LEVEL 


010049 






DFB 


$1, $80, $00, $00 


" =$D3 - 


GET . LEVEL 


010050 






PAGE 








010051 














010052 


* 


DEVICE 


SYSTEM CALL 


DEFINITIONS 






010053 


* 












010054 


DSC.CNT 


EQU 


5 






010055 


DSC.TBL 


EQU 








010056 






DFB 


$5, $05, $11, $90 


SCNUM=$80 - 


D . READ 
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010057 


DFB 


$4, $05, $11, $00 


" =$81 - 


D. WRITE 


010058 


DFB 


$3, $00, $50, $00 


" =$82 - 


D . STATUS 


010059 


DFB 


$3, $00, $50, $00 


" =$83 - 


D . CONTROL 


010060 


DFB 


$2, $58, $00, $00 


" =$84 - 


GET . DEV. NUM 


010061 


DFB 


$4, $05, $D0, $00 


" =$85 - 


D . INFO 


010062 










010063 


* UTILITY SYSTEM CALL DEFINITIONS 






010064 


* 








010065 


USC . CNT EQU 


5 






010066 


USC.TBL EQU 


* 






010067 


DFB 


$1, $00, $00, $00 


SCNUM=$60 - 


SET. FENCE 


010068 


DFB 


$1, $80, $00, $00 


" =$61 - 


GET . FENCE 


010069 


DFB 


$1, $50, $00, $00 


" =$62 - 


SET. TIME 


010070 


DFB 


$1, $50, $00, $00 


" =$63 - 


GET. TIME 


010071 


DFB 


$2,$0B,$00,$00 


" =$64 - 


JOYSTICK 


010072 


DFB 


$0, $00, $00, $00 


" =$65 - 


COLD . START 


010073 










010074 


* MEMORY SYSTEM CALL 


DEFINITIONS 






010075 










010076 


MSC . CNT EQU 


5 






010077 


MSC . TBL EQU 








010078 


DFB 


$4, $11, $08, $00 


SCNUM=$40 - 


REQUEST. SEG 


010079 


DFB 


$6, $00, $99, $98 


" =$41 - 


FIND . SEG 


010080 


DFB 


$3, $00, $90, $00 


" =$42 - 


CHANGE . SEG 


010081 


DFB 


$5, $09, $99, $80 


" =$43 - 


GET. SEG. INFO 


010082 


DFB 


$2, $18, $00, $00 


" =$44 - 


GET. SEG. NUM 


010083 


DFB 


$1, $00, $00, $00 


" =$45 - 


RELEASE . SEG 


010084 










010085 


* DEBUG SYSTEM CALL 


DEFINITION 






010086 










010087 


DBUG EQU 


$FE 






010088 


PAGE 








010089 


REP 


60 






010090 


* 








010091 


* DATA DECLARATIONS 








010092 










010093 


REP 


60 






010094 


Z . REG EQU 


$FFD0 






010095 


SP . SAVE EQU 


$01FF 






010096 


Z . SAVE EQU 


$01FD 






010097 


B . SAVE EQU 


$01FC 






010098 


* 








010099 


ADR . LOW EQU 


$2000 


LOW ADDRESS (BOUNDS 


010100 


ADR. HIGH EQU 


$B800 


HIGH ADDRESS 


010101 


ADR. MID EQU 


$A000 


MIDDLE ADDRESS 


010102 










010103 


* SCMGR'S VARIABLES 








010104 










010105 


SCM.VARS EQU 


$E0 






010106 


SCNUM EQU 


SCM.VARS + 


SYSTEM CALL 


NUMBER 
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010107 


SCRNUM 


EQU 


SCM.VARS+0 


; SYSTEM CALL REQUEST NUMBER 


010108 


SCPTR 


EQU 


SCM.VARS+1 


;S2 SYSTEM CALL POINTER 


010109 


MOVE.VARS 


EQU 


SCPTR+2 


; ! ! (LOOKOUT) ! ! 


010110 












010111 


* 










010112 


F 


TPARMX 


EQU 


$A0 


; FILE SYS CALL PARM START LOC 


010113 


D 


TPARMX 


EQU 


$C0 


; DEVICE SYS CALL PARM START LOC 


010114 


U 


TPARMX 


EQU 


$C0 


; UTILITY SYS CALL PARM START LOC 


010115 


M 


TPARMX 


EQU 


$60 


; MEMORY SYS CALL PARM START LOC 


010116 


* 










010117 




MOVE. FARM'S 


VARIABLES 






010118 


* 










010119 


TPARMX 


EQU 


MOVE.VARS+0 


; TARGET ADR OF SYS CALL PARMS 


010120 


DFN.PTR 


EQU 


MOVE.VARS+1 


;&2 


010121 


DFN.PTRX 


EQU 


MOVE.VARS +3 




010122 


SCPTRX 


EQU 


MOVE.VARS +4 




010123 


RGHT.NIB 


EQU 


MOVE.VARS +5 




010124 


SCT.DFN 


EQU 


MOVE.VARS +6 




010125 


SCT.DCNT 


EQU 


MOVE.VARS +7 




010126 


PARM.CNT 


EQU 


MOVE.VARS +8 




010127 






PAGE 






010128 






REP 


60 




010129 


* 










010130 


* 


SYSTEM CALL MANAGER 






010131 


* 










010132 






REP 


60 




010133 


* 










010134 


SCMGR 


EQU 






010135 






LDA 


#<SZPAGE 


; SET Z REG TO SOS ZPAGE 


010136 






STA 


Z.REG 




010137 












010138 




SET SYSTEM 


X BYTES TO ABSOLUTE ADDRESS MODE. 




010139 












010140 






LDA 


#0 




010141 






STA 


SXPAGE+SCPTR+1 




010142 






STA 


SERR 


; AND INIT SYSTEM ERR CODE 


010143 












010144 


* 


CALLER'S Z 


REG MUST BE 


$1A ! ! 




010145 


* 


(B REG NOT 


CHECKED) 






010146 


* 










010147 






LDA 


Z . SAVE 




010148 






CMP 


#<CZPAGE 




010149 






BEQ 


SCM005 




010150 






LDA 


#>BADCZPAGE 




010151 






JSR 


SYSERR 


; EXIT TO DISPATCHER 


010152 












010153 


* 


RETRIEVE CALLER'S PC ON 


HIS STACK 




010154 


* 










010155 


SCM005 


LDX 


SP . SAVE 




010156 






LDA 


CSPAGE+6,X 
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010157 


STA 


SCPTR+1 


010158 


LDA 


CSPAGE+5,X 


010159 


STA 


SCPTR 


010160 


BNE 


SCM010 


010161 


DEC 


SCPTR+1 


010162 


SCM010 DEC 


SCPTR 


010163 






010164 


* ADVANCE CALLER' S PC 


ON HIS STACK. 


010165 






010166 


CLC 




010167 


LDA 


CSPAGE+5,X 


010168 


ADC 


#2 


010169 


STA 


CSPAGE+5,X 


010170 


BCC 


SCM020 


010171 


INC 


CSPAGE+6,X 


010172 


* 




010173 


* RETRIEVE SYSTEM CALL 


NUMBER 


010174 






010175 


SCM020 LDY 


#0 


010176 


LDA 


(SCPTR) , Y 


010177 


CMP 


#DBUG 


010178 


BNE 


SCM025 


010179 


JSR 


DBUGBRK 


010180 


SCM025 STA 


SCNUM 


010181 






010182 


* RETRIEVE SYSTEM CALL 


PARAMETER ADDR 


010183 






010184 


INY 




010185 


LDX 


#>SCPTR 


010186 


JSR 


POINTER 


010187 


BCC 


SCM030 


010188 


RTS 




010189 






010190 


* CASE INTERFACE CODE 


OF SYSTEM CALL 


010191 


* (INTERFACE CODE STRIPPED, LEAVING 


010192 






010193 


SCM030 LDA 


#$20 


010194 


BIT 


SCNUM 


010195 


BPL 


SCM050 


010196 


LDA 


SCNUM 


010197 


AND 


#$3F 


010198 


STA 


SCRNUM 


010199 


BVC 


SCM040 


010200 






010201 


LDA 


#F . TPARMX 


010202 


STA 


TPARMX 


010203 


LDX 


#>FSC.TBL 


010204 


LDY 


#<FSC.TBL 


010205 


LDA 


#FSC.CNT 


010206 


JSR 


MOVE . PARMS 



AND POINT IT TO SYS CALL NUM 



; DEBUG SYSTEM CALL 



; ERROR EXIT 



NUMBER 



'11XXXXXX" 



JMP TO FILE MANAGER. 
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010207 








BCS 




SCM.ERR1 


ERR EXIT 


010208 








JMP 




FMGR 




010209 
















010210 


SCM040 




LDA 




#D . TPARMX 


"10XXXXXX" - JMP TO DEVICE MANAGER. 


010211 








STA 




TPARMX 




010212 








LDX 




#>DSC.TBL 




010213 








LDY 




#<DSC.TBL 




010214 








LDA 




#DSC.CNT 




010215 








JSR 




MOVE . PARMS 




010216 








BCS 




SCM.ERR1 


ERR EXIT 


010217 








JMP 




DMGR 




010218 
















010219 


SCM050 




BVC 




SCM.ERR 




010220 








PHP 








010221 








LDA 




SCNUM 




010222 








AND 




#$1F 




010223 








STA 




SCRNUM 




010224 








PLP 








010225 








BEQ 




SCM060 




010226 


* 














010227 








LDA 




#U . TPARMX 


"011XXXXX" - JMP TO UTILITY MANAGER. 


010228 








STA 




TPARMX 




010229 








LDX 




#>USC.TBL 




010230 








LDY 




#<USC.TBL 




010231 








LDA 




#USC.CNT 




010232 








JSR 




MOVE . PARMS 




010233 








BCS 




SCM.ERR1 


ERR EXIT 


010234 








JMP 




UMGR 




010235 
















010236 


SCM060 




LDA 




#M . TPARMX ; 


"010XXXXX" - JMP TO MEMORY MANAGER. 


010237 








STA 




TPARMX 




010238 








LDX 




#>MSC.TBL 




010239 








LDY 




#<MSC.TBL 




010240 








LDA 




#MSC . CNT 




010241 








JSR 




MOVE . PARMS 




010242 








BCS 




SCM.ERR1 


ERR EXIT 


010243 








JMP 




MMGR 




010244 
















010245 


SCM.ERR 




LDA 




#>BADSCNUM 


ERROR, INVALID SYSTEM CALL NUMBER. 


010246 


SCM.ERR1 




JSR 




SYSERR 


EXIT TO DISPATCHER ON ERROR 


010247 








PAGE 








010248 








REP 




60 




010249 


* 














010250 




MOVE . FARMS 










010251 
















010252 




MOVES 


THE 


CALLER'S 


PARAMETERS TO THE OPERATING 


SYSTEM' S 


010253 


* 


ZERO PAGE, 


ACCORDING 


TO THE SPECIFICATIONS CONTAINED 


010254 




IN THE 


SPECIFIED SYS 


CALL DFN TABLE. 




010255 


* 














010256 




INPUT : 


(A) 


= MAX # 


ENTRIES IN PARM DFN TABLE 
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010257 


* 


(X) = 


PARM DFN TBL ADR (LO) 


010258 




(Y) = 


ii 


(HI) 


010259 


* 


SCPTR = 


ADR OF CALLER'S SYS CALL FARMS 


010260 




ERROR: CARRY 


SET (SYSERR) 


010261 










010262 






REP 


60 


010263 










010264 


MOVE . FARMS 


EQU 


* 


010265 






STX 


DFN. PTR 


010266 






STY 


DFN . PTR+1 


010267 










010268 




IF REQ NUM > 


MAX REQ NUM (A REG) 


010269 










010270 






CMP 


SCRNUM 


010271 






BCS 


MOVE010 


010272 










010273 




THEN ERR (BAD SYS CALL 


NUM) 


010274 










010275 






LDA 


#>BADSCNUM 


010276 






BCC 


SYSERR1 


010277 










010278 


* 


CALCULATE DEFINITION TABLE INDEX 


010279 




AND INIT SYS CALL FARM 


INDEX 


010280 


* 








010281 


MOVE010 


LDA 


SCRNUM 


010282 






ASL 


A 


010283 






ASL 


A 


010284 






STA 


DFN. PTRX 


010285 






LDA 


#0 


010286 






STA 


SXPAGE+DFN. PTR+1 


010287 






STA 


SCPTRX 


010288 


* 








010289 


* 


IF SCPTR (SCPTRX) ODFN . PTR (DFN . PTRX) THEN ERR 


010290 










010291 






TAY 




010292 






LDA 


(SCPTR) , Y 


010293 






LDY 


DFN. PTRX 


010294 






CMP 


(DFN. PTR) , Y 


010295 






BEQ 


INITLOOPCT 


010296 










010297 






LDA 


#>BADSCPCNT 


010298 


SYSERR1 


JSR 


SYSERR 


010299 










010300 


* 


INIT LOOP CTR ( P ARM . CNT ) 


TO # OF PARMS IN SYS 


010301 


* 








010302 


INITLOOPCT 


STA 


PARM. CNT 


010303 


* 








010304 




ADVANCE PTRS 






010305 


* 








010306 











; SAVE ADR OF DEFINITION TABLE 



; BRANCH ALWAYS TAKEN 



; AND X BYTE 



; ERR, CALLER'S PARM COUNT INVALID 
; EXIT 
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010307 




INC 




SCPTRX 


010308 




INC 




DFN.PTRX 


010309 










010310 




MOVE REQ CODE TO SYS 


ZPAGE PARM LIST 


010311 




AND ADVANCE SYS ZPAGE PTR (X=TPARMX) 


010312 










010313 




LDA 




SCRNUM 


010314 




LDX 




TPARMX 


010315 




STA 




o,x 


010316 




INX 






010317 










010318 




INIT NIBBLE FLAG TO 


"RIGHT" NIBBLE 


010319 


* 


ZERO STATE="LEFT" NIBBLE 


010320 


* 








010321 




LDA 




#$FF 


010322 




STA 




RGHT.NIB 


010323 




REP 




60 


010324 


* 








010325 


* 


BEGIN PARAMETER PROCESSING LOOP 


010326 










010327 


PARMLOOP LDA 




RGHT . NIB 


010328 




EOR 




#$FF 


010329 




STA 




RGHT.NIB 


010330 










010331 




IF "LEFT" NIBBLE 






010332 










010333 




BNE 




ELSE. RNIB 


010334 


* 








010335 




THEN FETCH SYS CALL 


PARM DFN 


010336 




AND # OF BYTES IN PARM 


WITHIN IT 


010337 










010338 




LDY 




DFN.PTRX 


010339 




LDA 




(DFN. PTR) , Y 


010340 




STA 




SCT.DFN 


010341 




AND 




#$30 


010342 




LSR 




A 


010343 




LSR 




A 


010344 




LSR 




A 


010345 




LSR 




A 


010346 




STA 




SCT.DCNT 


010347 




BPL 




VALUE 


010348 










010349 




ELSE FETCH SYS CALL 


PARM DFN 


010350 


* 


AND # OF BYTES IN PARM 


WITHIN IT 


010351 


* 


FROM "RIGHT" NIBBLE 


OF 


DFN BYTE 


010352 


* 








010353 


ELSE . RNIB LDA 




SCT.DFN 


010354 




TAY 






010355 




AND 




#$03 


010356 




STA 




SCT.DCNT 



; COMPLEMENT NIBBLE FLAG 



; BRANCH ALWAYS 
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010357 




TYA 






010358 




ASL 




A 


010359 




ASL 




A 


010360 




ASL 




A 


010361 




ASL 




A 


010362 




STA 




SCT.DFN 


010363 




INC 




DFN.PTRX 


010364 




REP 




60 


010365 










010366 


* PARAMETER 


PASSED 


BY 


VALUE 


010367 










010368 




REP 




60 


010369 


VALUE 


BIT 




SCT.DFN 


010370 




BVS 




REFERENCE 


010371 




BMI 




VAL . OUT 


010372 










010373 


* INPUT BY VALUE 






010374 










010375 




LDY 




SCPTRX 


010376 


VAL . IN 


LDA 




(SCPTR) , Y 


010377 




STA 




o,x 


010378 




INY 






010379 




INX 






010380 




DEC 




SCT.DCNT 


010381 




BPL 




VAL . IN 


010382 




STY 




SCPTRX 


010383 




JMP 




ENDLOOP1 


010384 










010385 


* OUTPUT BY 


VALUE 






010386 










010387 


VAL . OUT 


CLC 






010388 




LDA 




SCPTR 


010389 




ADC 




SCPTRX 


010390 




STA 




o,x 


010391 




INX 






010392 




LDA 




SCPTR+l 


010393 




ADC 




#0 


010394 




STA 




o,x 


010395 










010396 




CLC 






010397 




LDA 




SCPTRX 


010398 




ADC 




SCT.DCNT 


010399 




STA 




SCPTRX 


010400 


* 








010401 




LDA 




SXPAGE+SCPTR+1 


010402 




STA 




SXPAGE,X 


010403 




JMP 




ENDLOOP2 


010404 




REP 




60 


010405 










010406 


* PARAMETER 


PASSED 


BY 


REFERENCE 



; ADVANCE SYS CALL DFN PTR 



; MOVE BYTES TO ZPAGE 



; BUILD PTR TO PARM ON ZPAGE 



; ADVANCE INDEX TO NEXT PARM 



INCLUDE X BYTE 
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010407 


★ 










010408 






REP 


60 




010409 


REFERENCE 


BPL 


REF1 




010410 


* 










010411 




"LIST" PTR FOUND, CHK IF "LENGTH" PARM = 




010412 












010413 






LDY 


SCPTRX 




010414 






INY 






010415 






INY 






010416 






LDA 


(SCPTR) , Y 




010417 






BEQ 


ENDLOOP0 


; "LENGTH" PARM=0, SKIP "LIST 


010418 


* 










010419 


REF1 


LDY 


SCPTRX 


; MOVE PTR TO ZPAGE 


010420 






JSR 


POINTER 




010421 






BCS 


PARM.ERR 


; ERROR EXIT 


010422 


* 










010423 


* 


ADVANCE 


SYSTEM ZPAGE POINTER (X), CALLER'S 


PARM PTR. 


010424 


* 


DECREMENT PARM CTR 


AND CHECK IF LAST PARM 


PROCESSED. 


010425 


* 










010426 


ENDLOOP0 


INX 






010427 






INC 


SCPTRX 




010428 


ENDLOOP2 


INX 






010429 






INC 


SCPTRX 




010430 


ENDLOOP1 


DEC 


PARM.CNT 




010431 






BEQ 


PARM. EXIT 




010432 






BMI 


PARM. EXIT 


; SPECIAL FOR 'COLD START' 


010433 






JMP 


PARMLOOP 




010434 












010435 




END OF 


PARAMETER PROCESSING LOOP 




010436 


* 










010437 






REP 


60 




010438 


* 










010439 


PARM. EXIT 


CLC 




; NO ERRORS 


010440 


PARM.ERR 


RTS 




; RETURN TO SYS CALL MANAGER 


010441 






PAGE 






010442 






REP 


60 




010443 












010444 




POINTER 








010445 


* 










010446 




INPUT : 


SRC ADR 


(SCPTR), Y & (SCPTR), Y+l 




010447 


* 




DEST ADR 


(X) 




010448 


* 










010449 


* 


OUTPUT : 


SCPTR 


UNCHANGED 




010450 






X REG 


ii 




010451 






A, Y REGS 


FLATTENED 




010452 


* 










010453 


* 


ERROR: 


CARRY SET 


(SYSERR) 




010454 


* 










010455 


* 


POINTER 


RETRIEVES 


THE CALLER'S POINTER PARAMETER IN 


010456 




(SCPTR),Y, PERFORMS 


ADDRESS COMPENSATION, 


IF NECESSARY 
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010457 
010458 
010459 
010460 
010461 
010462 
010463 
010464 
010465 
010466 
010467 
010468 
010469 
010470 
010471 
010472 
010473 
010474 
010475 
010476 
010477 
010478 
010479 
010480 
010481 
010482 
010483 
010484 
010485 
010486 
010487 
010488 
010489 
010490 
010491 
010492 
010493 
010494 
010495 
010496 
010497 
010498 
010499 
010500 
010501 
010502 
010503 
010504 
010505 
010506 



* AND PLACES THE RESULTING POINTER AT X, X+l AND SXPAGE+1,X. 

60 



POINTER 



INDIRECT 



PTR010 



REP 

EQU 
LDA 
PHA 
INY 
LDA 
BEQ 

STA 
PLA 
STA 
LDY 
BEQ 

PLA 
TAY 
LDA 
STA 
LDA 
STA 
LDA 
TAY 

LDA 



(SCPTR) , Y 



(SCPTR) , Y 
INDIRECT 

1,X 

o,x 
#o 

PTR010 



CZPAGE, Y 

0, x 

CZPAGE+l, Y 

1, X 

CXPAGE+ 1 , Y 



1,X 



; DIRECT POINTER 



; INDIRECT POINTER 



CHECK BOUNDS OF CALLER'S POINTER PARAMETER 



PTR.X8F 



CPY 
BCC 
BEQ 
BCS 
CMP 
BCC 
CMP 
BCS 
BCC 



* X BYTE = 80. .8E 



PTR.X808E 



CPY 
BCC 
CMP 
BEQ 
CMP 
BNE 
INY 
LDA 



#$8F 

PTR.X808E 

PTR.X8F 

PTR.ERR1 

#<ADR.LOW 

PTR.ERR 

#<ADR. HIGH 

PTR.ERR 

PTR.EXIT 



#$80 

PTR.X0 

#0 

PTR.ERR 

#$FF 

PATCH 



; ERROR, INVALID X BYTE 



; $8N:FFXX — > $8N+1:7FXX 



#$7F 
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010507 
010508 
010509 
010510 
010511 
010512 
010513 
010514 
010515 
010516 
010517 
010518 
010519 
010520 
010521 
010522 
010523 
010524 
010525 
010526 
010527 
010528 
010529 
010530 
010531 
010532 
010533 
010534 
010535 
010536 
010537 
010538 
010539 
010540 
010541 
010542 
010543 
010544 
010545 
010546 
010547 
010548 
010549 
010550 
010551 
010552 
010553 
010554 
010555 
010556 



* X BYTE 



PTR.XO 



PTR030 



PATCH 



PTR.EXIT 



PTR.ERR 



PTR.ERR1 



BNE 



CPY 
BNE 
CMP 
BCC 
CMP 
BCS 
CMP 
BCS 

PHA 
LDA 
AND 
BNE 
PLA 
LDY 
BNE 

OPA 
TAY 
PLA 
SEC 
SBC 
BNE 
DEY 
LDA 

CPY 
BCC 
CMP 
BNE 
CPY 
BEQ 
DEY 
LDA 

STA 
TYA 
STA 
CLC 
RTS 



LDA 
JSR 
LDA 
JSR 



PTR.EXIT 



#0 

PTR.ERR1 

#<ADR.LOW 

PTR.ERR 

#<ADR. HIGH 

PTR.ERR 

#<ADR.MID 

PTR.EXIT 



B.SAVE 

#$0F 

PTR030 

#$8F 

PTR.EXIT 

#$80 



#$20 
PATCH 

#$80 

#$80 

PTR.EXIT 
#1 

PTR.EXIT 

#$80 

PTR.ERR 

#$81 

1,X 

SXPAGE+1,X 



#>BADSCBNDS 
SYSERR 
#>BADXBYTE 
SYSERR 



; $B=0 : 2000 . . 9FFF — > $8F : 2000 . 9FFF 



; $B<>0 : 2000 . . 9FFF — > $8B : 0000 . . 7FFF 



; $8B:00XX — > $8B-1:80XX 

; KLUDGE FOR BFM: $8N:01XX — > $8N-1:81XX 
; ERROR, $80:01XX NOT ALLOWED 
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010557 
010558 
010559 
010560 
010561 
010562 
010563 
010564 
010565 
010566 
010567 
010568 
010569 



ZZEND 
ZZLEN 



LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



ON 
* 

ZZEND-ZZORG 
ZZLEN-LENSCMGR 
2, "SOSORG 



FILE IS INCORRECT FOR SCMGR" 



************************************************************************* 

* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SCMGR. SRC 
**************************************** 
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010570 








010571 


DOCUMENT :SOS1.3.2of5 


. TWO : SOS . SYSERR . TEXT 










010572 








010573 








010574 


************************************************************************* 


010575 


* APPLE /// SOS 1.3 SOURCE CODE FILE: SYSERR.SRC 


010576 


************************************************************************* 


010577 


* ASSEMBLER: APPLE ] [ 


6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 


010578 








010579 


SBTL 




"SOS 1.1 SYSTEM ERROR ROUTINES" 


010580 


REL 






010581 

v J. v >J U X 


INCLUDE 


SOSORG, 6,1,254 


010582 


ORG 




ORGSERR 


010583 


ZZORG EQU 




* 


010584 


MSB 




OFF 


010585 

v J. u >J U J 


REP 




60 


010586 

v J. u >J U v 


* COPYRIGHT 


(C) 


APPLE COMPUTER INC. 1980 


010587 


* ALL 


RIGHTS RESERVED 


010588 

\J -L \J *-J <J {J 


REP 




60 


010589 

v J. u >J U J 


* 






010590 

\J _L \J J \J 


* SYSTEM ERROR ROUTINES 


(VERSION =1.10 ) 


010591 


* 




(DATE = 12/02/81) 


010592 


* 






010593 


* THIS MODULE CONTAINS THE SYSTEM ERROR AND SYSTEM FAILURE ROUTINES. 


010594 


* 






010595 

\J J- \J *-J ~s *-J 


REP 




60 


010596 


* 






010597 


ENTRY 




SYSERR 


010598 


ENTRY 




SYSDEATH 


010599 


* 






010600 

\J -L \J V V \J 


EXTRN 




SERR 


010601 

\J -L \J V V -L 


EXTRN 




SDEATH . REGS 


010602 

\J -L \J V V 


EXTRN 




SCRNMODE 


010603 

V -L V V W ~J 


PAGE 






010604 


REP 




60 


010605 


* 






010606 


* DATA DECLARATIONS 






010607 


* 






010608 

\J J- \J <J **J 


REP 




60 


010609 

\J _L \J \J V ^ 


* 






010610 


E . REG EQU 




$FFDF 


010611 


Z . REG EQU 




$FFD0 


010612 


B . REG EQU 




$FFEF 


010613 


* 






010614 


S . SAVE EQU 




$09 ; REGISTER SAVE AREA 


010615 


PCH . SAVE EQU 




$08 


010616 


PCL . SAVE EQU 




$07 


010617 


P . SAVE EQU 




$06 


010618 


A. SAVE EQU 




$05 
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010619 


X . SAVE 


EQU 


$04 


010620 


Y . SAVE 


EQU 


$03 


010621 


E . SAVE 


EQU 


$02 


010622 


Z . SAVE 


EQU 


$01 


010623 


B . SAVE 


EQU 


$00 


010624 








010625 


NMI .VECTOR 


EQU 


$FFFA 


010626 








010627 


TXT . CLR 


EQU 


$C050 


010628 


MIX.CLR 


EQU 


$C052 


010629 


HIRES. CLR 


EQU 


$C056 


010630 








010631 


PG2 .CLR 


EQU 


$C054 


010632 








010633 


MSGBASE 


EQU 


$7E4 


010634 


MSGBASE2 


EQU 


$BE4 


010635 


MSG 


ASC 


' SYSTEM FAILURE = $' 


010636 


MSGLEN 


EQU 


*-MSG 


010637 




PAGE 




010638 




REP 


60 


010639 








010640 


* SYSTEM ERROR 


ROUTINE 




010641 








010642 


* THIS ROUTINE 


IS CALLED WHEN AN ERROR CONDITION HAS BEEN 


010643 


* ENCOUNTERED. 


THE ERROR 


NUMBER IS PASSED IN THE A REG 


010644 


* AND THE CALL 


TO THIS ROUTINE MUST ALWAYS BE A JSR. 


010645 








010646 




REP 


60 


010647 


SYSERR 


EQU 


* 


010648 








010649 




STA 


SERR 


010650 




PLA 




010651 




STA 


SDEATH . REGS+PCL . SAVE 


010652 




PLA 




010653 




STA 


SDEATH . REGS+PCH . SAVE 


010654 




SEC 




010655 




LDA 


SERR 


010656 




BNE 


SERR. EXIT 


010657 




CLC 




010658 


SERR. EXIT 


RTS 


; RETURNS 


010659 




PAGE 




010660 




REP 


60 


010661 


* 






010662 


* SYSTEM DEATH 


ROUTINE 




010663 








010664 


* CALLED TO IMMEDIATELY TERMINATE EXECUTION OF THE MACHINE 


010665 


* BECAUSE A FATAL ERROR HAS BEEN DETECTED BY THE OPERATING 


010666 


* SYSTEM. THE 


ERROR CODE 


IS PASSED IN THE A REG. THE 


010667 


* CALL TO THIS 


ROUTINE MUST ALWAYS BE A JSR. 


010668 
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010669 
010670 
010671 
010672 
010673 
010674 
010675 
010676 
010677 
010678 
010679 
010680 
010681 
010682 
010683 
010684 
010685 
010686 
010687 
010688 
010689 
010690 
010691 
010692 
010693 
010694 
010695 
010696 
010697 
010698 
010699 
010700 
010701 
010702 
010703 
010704 
010705 
010706 
010707 
010708 
010709 
010710 
010711 
010712 
010713 
010714 
010715 
010716 
010717 
010718 



SYSDEATH 



SD005 



REP 
EQU 

STA 
STX 
STY 
PHP 
PLA 
STA 
TSX 
STX 
LDA 
STA 
LDA 
STA 
LDA 
STA 
PLA 
STA 
PLA 
STA 

SEI 
CLD 

LDX 
LDA 
STA 
DEX 
BNE 

LDA 
LDA 
LDA 
LDA 
LDA 

LDA 

LDA 
STA 

LDA 
LDA 
LDA 
LDA 

LDA 
BIT 
BVS 



60 



SDEATH . REGS+A . SAVE 
SDEATH . REGS+X . SAVE 
SDEATH . REGS+Y . SAVE 



SDEATH . REGS+P . SAVE 

SDEATH . REGS+S . SAVE 
E.REG 

SDEATH . REGS+E . SAVE 
Z.REG 

SDEATH . REGS+Z . SAVE 
B.REG 

SDEATH . REGS+B . SAVE 
SDEATH . REGS+PCL . SAVE 
SDEATH . REGS+PCH . SAVE 



SAVE REGISTERS 



#0 

$100, X 
$1700, X 

SD005 

$C059 
$C0DD 
$C0DF 
$C05F 
$C05A 

$C040 

#$74 
E.REG 

TXT . CLR 
MIX.CLR 
HIRES. CLR 
PG2 .CLR 

#$02 

SCRNMODE 
SD015 



TURN OFF INTERRUPTS 



; SAVE SYSTEM STACK PAGE IN PAGE $17 



; ENSURE SILENTYPE PORT SHUT DOWN 



; SOUND BELL 

; ENSURE RESET LOCK OFF & RAM SWITCHED IN. 

; SWITCH TO 4 COL B&W DISPLAY MODE 

; & SELECT PAGE 1 

; IF GRAPHICS MODE THEN KEEP 4 COL MODE 
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010719 




BEQ 


SD015 






IF 4 COL MODE THEN KEEP 


010720 




LDA 


MIX.CLR+1 






ELSE SWITCH TO 80 COL DISPLAY MODE 


010721 


* 












010722 




LDX 


#MSGLEN+1 






ENSURE BKGRND SET TO INVERSE SPACES 


010723 




LDA 


#$20 






SPACE CHAR W/ INVERSE 


010724 


SD010 


STA 


MSGBASE2-1,X 








010725 




DEX 










010726 




BPL 


SD010 








010727 














010728 


SD015 


LDX 


#0 






MOVE MSG TO TEXT SCREEN 


010729 


SD020 


LDA 


MSG,X 








010730 




STA 


MSGBASE-1,X 








010731 




INX 










010732 




CPX 


#MSGLEN 








010733 




BNE 


SD020 








010734 














010735 




LDA 


SDEATH . REGS+A 


SAVE 




DISPLAY ERROR CODE (2 HEX DIGITS) 


010736 




CLC 










010737 




LSR 


A 








010738 




LSR 


A 








010739 




LSR 


A 








010740 




LSR 


A 








010741 




JSR 


PRINT 






FIRST DIGIT 


010742 




INX 










010743 




LDA 


SDEATH. REGS+A 


SAVE 






010744 




AND 


#$0F 








010745 




JSR 


PRINT 






SECOND DIGIT 


010746 














010747 




LDA 


#>SD100 








010748 




STA 


NMI . VECTOR 








010749 




LDA 


#<SD100 








010750 




STA 


NMI .VECTOR+1 








010751 














010752 














010753 




JMP 








HANG UNTIL REBOOT (CTRL/RESET) 


010754 




REP 


60 








010755 


SD100 


RTI 








NMI VECTOR POINT HERE TO MASK THEM OUT 


010756 














010757 














010758 


* PRINT 


SUBROUTINE 










010759 


* 












010760 


PRINT 


EQU 


★ 








010761 




CMP 


#$A 








010762 




BCS 


PRNT100 








010763 




ADC 


#$30 






n "— " g " 


010764 




BCC 


PRNT110 






ALWAYS TAKEN 


010765 


PRNT100 


ADC 


#$36 








010766 


PRNT110 


STA 


MSGBASE-1,X 








010767 




RTS 










010768 


* 
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010769 LST ON 

010770 ZZEND EQU * 

010771 ZZLEN EQU ZZEND-ZZORG 

010772 IFNE ZZLEN-LENSERR 

010773 FAIL 2,"SOSORG FILE IS INCORRECT FOR SYSERR" 

010774 FIN 
010775 

010776 ************************************************************************* 

010777 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SYSERR. SRC 
010778 
010779 
010780 



*********************************************** 
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010781 
010782 
010783 
010784 
010785 
010786 
010787 
010788 
010789 
010790 
010791 
010792 
010793 
010794 
010795 
010796 
010797 
010798 
010799 
010800 
010801 
010802 
010803 
010804 
010805 
010806 
010807 
010808 
010809 
010810 
010811 
010812 
010813 
010814 
010815 
010816 
010817 
010818 
010819 
010820 
010821 
010822 
010823 
010824 
010825 
010826 
010827 
010828 
010829 



DOCUMENT : SOS1 . 3 . 3of 5 . THREE : SOS .ALLOC . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: ALLOC 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



DEALLOC 



DEALL1 



STX 
PHA 
LDX 
LDA 
CMP 
PLA 
BCC 
TAX 
AND 
TAY 
LDA 
STA 
TXA 
LSR 
ROR 
LSR 
ROR 
LSR 
ROR 
STA 
LSR 
ROL 
LDX 
LDA 
CMP 
BEQ 
JSR 
BCS 
LDA 
LDY 
STA 
LDX 
LDA 
JSR 
BCS 
LDY 
LSR 
BCC 
INC 



BMCNT 
VCBPTR 

VCB+VCBTBLK+1,X 
BMCNT 

DEALERR1 

#$7 

WHICHBIT, Y 
NOFREE 

BMCNT 
A 

BMCNT 
A 

BMCNT 
A 

BMPTR 
BMCNT 
HALF 
BMTAB 
BMACMAP , X 
BMCNT 
DEALL1 
BMAPUP 
DEALERR 
BMCNT 
#VCBCMAP 
(VCBPTR) , Y 
BMTAB 
BMADEV, X 
GTBMAP 
DEALERR 
BMPTR 
HALF 
DEALL2 
BMADR+1 



SAVE HIGH ORDER ADDRESS OF BLOCK TO BE FREED. 
SAVE IT 

WHILE THE BITMAP 
DISK ADDRESS IS CHECKED 
TO SEE IF IT MAKES SENSE 
RESTORE 

BRANCH IF IMPOSSIBLE 

; GET THE BIT TO BE OR-ED IN. 

(SHIFTING TAKES 7 BYTES, BUT IS SLOWER) 
SAVE BIT PATTERN 
GET LOW BLOCK ADDRESS AGAIN. 

; GET POINTER TO BYTE IN BITMAP THAT REPRESENTS 
; THE BLOCK ADDRESS. 



; SAVE POINTER. 

; NOW TRANSFER BIT WHICH SPECIFIES WHICH PAGE OF BITMAP. 

(THIS POINTS TO THE TABLE FOR THE BITMAP BUFFER USED) . 
WHAT IS THE CURRENT MAP 
IS IN CORE BIT MAP THE ONE WE WANT? 
BRANCH IF IN-CORE IS CORRECT. 
PUT CURRENT MAP AWAY. 
PASS BACK ANY ERROR. 
GET DESIRED MAP NUMBER. 

; AND MAKE IT CURRENT. 

; READ IT INTO THE BUFFER, 
; INDEX TO BYTE. 

; BRANCH IF ON PAGE ONE OF BITMAP. 
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010830 


DEALL2 


LDA 


NOFREE 




THE INDIVIDUAL BIT. 




010831 




ORA 


(BMADR) , Y 








010832 




STA 


(BMADR) , Y 








010833 




BCC 


DEALL3 




BRANCH IF ADDRESS IS PROPER 




010834 




DEC 


BMADR+1 








010835 


DEALL3 


LDX 


BMTAB 




MARK BITMAP AS MODIFIED. 




010836 




LDA 


#$80 








010837 




ORA 


BMASTAT, X 








010838 




STA 


BMASTAT, X 








010839 




CLC 










010840 


DEALERR 


RTS 










010841 


DEALERR1 


LDA 


#BITMAPADR 




BIT MAP BLOCK NUMBER IMPOSSIBLE 




010842 




SEC 






SAY BIT MAP DISK ADDRESS WRONG 




010843 




RTS 






(PROBABLY DATA MASQUERADING AS INDEX BLOCK) 




010844 


* 












010845 


WHICHBIT 


DFB 


$80, $40, $20, $10 








010846 




DFB 


8,4,2,1 








010847 














010848 


* 












010849 




PAGE 










010850 














010851 


ALCIDXS 


LDA 


#0 




ALLOCATION OF THE INDEXES ALWAYS FILLS IN 




010852 




STA 


SAPTR 




STARTING AT THE BEGINNING OF THE BLOCK. 




010853 




JSR 


ALC1BLK 




THIS GETS FIRST INDEX AND SETS UP A 




010854 




BCS 


ERRALC1 




POINTER TO THE FREE BLOCKS (TO AVOID 




010855 


ALIDX1 


LDY 


SAPTR 




SCANNING THE WHOLE BLOCK EVERY TIME) . 




010856 




STA 


(TINDX) , Y 




SAVE INDEX BLOCK ADDRESS (LOW) 




010857 




INC 


TINDX+1 








010858 




LDA 


SCRTCH+1 




GET HIGH BYTE OF ADDRESS 




010859 




STA 


(TINDX) , Y 




(AND SAVE IT) 




010860 




DEC 


TINDX+1 








010861 




DEC 


REQL 




HAS REQUEST BEEN SATIFIED? 




010862 




BEQ 


ALDXEND 




(CARRY IS CLEAR) 




010863 




INC 


SAPTR 




BUMP INDEX POINTER 




010864 




LDY 


BMPTR 




GET INDEX POINTER TO LAST ACCESSED BIT GROUP 




010865 




LDA 


HALF 




WHICH HALF OF MAP? (BOTH BMPTR & HALF SET UP 


BY 


010866 




BNE 


SECNDHAF 








010867 




JSR 


GETBITS1 




GET NEXT FREE BLOCK ADDRESS. 




010868 




BCC 


ALIDX1 




BRANCH IF NO ERROR 




010869 


ERRALC1 


RTS 










010870 


* 












010871 


SECNDHAF 


JSR 


GETBITS2 




GET NEXT FREE BLOCK ADDRESS FROM SECOND HALF 


OF 


010872 




BCC 


ALIDX1 




BRANCH IF NO ERROR. 




010873 


ALDXEND 


RTS 






RETURN STATUS (CARRY SET INDICATES ERROR) 




010874 














010875 














010876 


ALC1BLK 


JSR 


FNDBMAP 




GET ADDRESS OF BIT MAP IN 'BMADR' 




010877 




BCS 


ERRALC1 




BRANCH IF ERROR ENCOUNTERED 




010878 


SRCHFRE 


LDY 


#0 




START SEARCH AT BEGINNING OF BIT MAP BLOCK 




010879 




STY 


HALF 




INDICATE WHICH HALF (PAGE) WE'RE SEARCHING. 
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010880 


GETBITS1 


LDA 


(BMADR) , Y 




010881 




BNE 


BITFOUND 


; FREE BLOCKS ARE INDICATED BY 'ON' BITS 


010882 




INY 






010883 




BNE 


GETBITS1 


; CHECK ALL OF 'EM IN FIRST PAGE. 


010884 




INC 


BMADR+1 


; BUMP HIGH ADDRESS OF CURRENT BITMAP 


010885 




INC 


HALF 


; INDICATE SEARCH HAS PROGRESSED TO PAGE 2 


010886 




INC 


BASVAL 


; BASE VALUE= BASE ADDRESS/2048 


010887 


GETBITS2 


LDA 


(BMADR) , Y 


; SEARCH SECOND HALF FOR FREE BLOCK 


010888 




BNE 


BITFOUND 




010889 




INY 






010890 




BNE 


GETBITS2 




010891 




DEC 


BMADR+1 


; RESET BIT MAP ADDRESS TO BEGINNING. 


010892 




INC 


BASVAL 


; ADD 2048 OFFSET FOR NEXT PAGE 


010893 




JSR 


NXTBMAP 


; GET NEXT BITMAP (IF IT EXISTS) AND UPDATE VCB . 


010894 




BCC 


SRCHFRE 


; BRANCH IF NO ERROR ENCOUNTERED. 


010895 




RTS 




; RETURN ERROR. 


010896 




PAGE 






010897 










010898 


BITFOUND 


STY 


BMPTR 


; SAVE INDX POINTER TO VALID BIT GROUP 


010899 




LDA 


BASVAL 


; SET UP FOR BLOCK ADDRESS CALCULATION 


010900 




STA 


SCRTCH+1 




010901 




TYA 




; GET ADDRESS OF BIT PATTERN 


010902 




ASL 


A 


; MULTIPLY THIS AND BASVAL BY 8 


010903 




ROL 


SCRTCH+1 




010904 




ASL 


A 




010905 




ROL 


SCRTCH+1 




010906 




ASL 


A 




010907 




ROL 


SCRTCH+1 




010908 




TAX 




; NOW X= LOW ADDRESS WITHIN 7 OF ACTUAL ADDRESS. 


010909 




LDA 


(BMADR) , Y 


; GET BIT PATTERN AGAIN 


010910 




SEC 




; MARK RIGHT END OF BYTE. 


010911 


ADCALC 


ROL 


A 


; FIND LEFT MOST 'ON' BIT 


010912 




BCS 


BOUNCE 


; BRANCH IF FOUND. 


010913 




INX 




; ADJUST LOW ADDRESS 


010914 




BNE 


ADCALC 


; BRANCH ALWAYS 


010915 


BOUNCE 


LSR 


A 


; RESTORE ALL BUT LEFT MOST BIT TO ORIGINAL POSITION 


010916 




BCC 


BOUNCE 


; LOOP UNTIL MARK (SET ABOVE) MOVES INTO CARRY 


010917 




STA 


(BMADR) , Y 


; UPDATE BITMAP TO SHOW ALLOCATED BLOCK IN USE. 


010918 




STX 


SCRTCH 


; SAVE LOW ADDRESS. 


010919 




LDX 


BMTAB 


; UPDATE BIT MAP BUFFER STATUS 


010920 




LDA 


#$80 


; INDICATE MAP HAS BEEN MODIFIED 


010921 




ORA 


BMASTAT, X 


; (X IS EITHER OR 6 FOR 


010922 




STA 


BMASTAT, X 


; BUFFER 'A' OR 'B' RESPECTIVELY.) 


010923 




LDY 


#VCBTFRE 


; SUBTRACT 1 FROM TOTAL FREE 


010924 




LDA 


(VCBPTR) , Y 


; BLOCKS IN VCB TO ACCOUNT FOR NEWLY 


010925 




SBC 


#1 


; ALLOCATED BLOCK (CARRY IS SET FROM 'BOUNCE') 


010926 




STA 


(VCBPTR) , Y 




010927 




BCS 


RET1BLK 


; BRANCH IF HI FREE COUNT DOESN'T NEED ADJUSTMENT. 


010928 




INY 






010929 




LDA 


(VCBPTR) , Y 


; ADJUST HIGH COUNT. 
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010930 




SBC 


#0 


; (CARRY IS CLEAR, SO ACC=ACC-1) 


010931 




STA 


(VCBPTR) , Y 




010932 


RET1BLK 


CLC 




; INDICATE NO ERROR ENCOUNTERED 


010933 




LDA 


SCRTCH 


; GET ADDRESS LOW IN ACC . 


010934 




LDY 


SCRTCH+1 


; AND HIGH ADDRESS IN Y 


010935 




RTS 




; RETURN ADDRESS OF NEWLY ALLOCATED BLOCK. 


010936 










010937 




PAGE 






010938 










010939 


GTTINDX 


LDY 


#VCBDEV 


; GET DEVICE NUMBER SO WE DON'T 


010940 




LDX 


#0 


; ANT I CP ATE USING BUFFER 'A' . 


010941 




LDA 


(VCBPTR) , Y 


; USE THE BUFFER USED BY IT! 


010942 




CMP 


BMADEV 


; IS IT IN BUFFER 'A' ? 


010943 




BEQ 


FREEBE 


; IF SO, FREE 'B' ! 


010944 




CMP 


BMBDEV 


; IF NOT, IS IT IN 'B' ? 


010945 




BEQ 


FREEA 


; IF SO, FREE UP BUFFER 'A' 


010946 




JSR 


FNDBMAP 


; OTHERWISE, FORCE ALLOCATION FOR ONE OF THE 


010947 




BCC 


GTTINDX 


; NOW TRY AGAIN. 


010948 




RTS 




; RETURN ERROR. 


010949 










010950 


FREEBE 


LDX 


#BMTABSZ 


; DE-ALLOCATE BUFFER IF NECESSARY 


010951 


FREEA 


STX 


NOFREE 


; SAVE WHICH BUFFER WE'RE LOOKIN AT. 


010952 




LDY 


BMASTAT, X 


; DO WE NEED TO WRITE BUFFER TO FREE IT? 


010953 




BPL 


USEBUF 


; NO, THEN USE IT. 


010954 




STX 


ZPGTEMP 


; SAVE BM BUFFER ID FOR A BIT 


010955 




JSR 


WRTBMAP 


; WRITE BM TO OWNING UNIT 


010956 




BCS 


SOMERR1 


; RETURN ANY ERROR (W/O RELEASING BM) 


010957 




LDX 


ZPGTEMP 


; FETCH THE BM BUFFER ID 


010958 




LDA 


#0 




010959 




STA 


BMASTAT, X 


; AND MARK BM BUFFER AS FREE 


010960 


USEBUF 


LDX 


NOFREE 


; GET INDEX TO BUFFER INFO 


010961 




LDA 


#0 


; MARK STATUS OF BUFFER AS FREE. 


010962 




STA 


BMADEV, X 


; (DEVICE IS NOT ANY DEVICE) 


010963 




STA 


TINDX 




010964 




STA 


BMADR 




010965 




LDA 


BMAMADR, X 


; GET MEMORY ADDRESS OF FREE BUFFER. 


010966 




STA 


TINDX+1 




010967 




TXA 




; SET UP PROPER HI ADDRESS OF BIT MAP TOO... 


010968 




EOR 


#BMTABSZ 


; SELECT ALTERNATE BIT MAP TABLE. 


010969 




STA 


BMTAB 


; (TO INDICATE WHICH IS BITMAP) 


010970 




TAX 






010971 




LDA 


BMAMADR, X 


; GET HIGH ADDRESS OF BIT MAP. 


010972 




STA 


BMADR+1 




010973 




LDA 


BMBUFBNK 


; AND BANK PAIR NUMBER. 


010974 




STA 


SSTIDXH 




010975 




STA 


SISBMADR 




010976 




CLC 




; INDICATE NO ERRORS 


010977 


SOMERR1 


RTS 






010978 










010979 




PAGE 
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010980 


NXTBMAP 


LDY 


#VCBTBLK+1 


; BEFORE BUMPING TO NEXT MAP, 


010981 




LDA 


(VCBPTR) , Y 


; CHECK TO BE SURE THERE IS 


010982 




LSR 


A 


; INDEED A NEXT MAP! 


010983 




LSR 


A 




010984 




LSR 


A 




010985 




LSR 


A 




010986 




LDY 


#VCBCMAP 




010987 




CMP 


(VCBPTR) , Y 


; ARE THERE MORE MAPS? 


010988 




BEQ 


NOMORBIT 


; BRANCH IF NO MORE TO LOOK AT. 


010989 




LDA 


(VCBPTR) , Y 


; ADD 1 TO CURRENT MAP 


010990 




CLC 






010991 




ADC 


#1 




010992 




STA 


(VCBPTR) , Y 




010993 




LDY 


#VCBDEV 




010994 




LDA 


(VCBPTR) , Y 




010995 




TAX 




; GO WRITE OUT LAST MAP IF NECESSARY 


010996 




JSR 


UPBMAP 




010997 




JMP 


FNDBMAP 


; READ NEXT BIT MAP INTO BUFFER 


010998 










010999 


GETA.BUF 


LDX 


#0 




011000 




BEQ 


FRESHMAP 




011001 










011002 


GETB . BUF 


LDX 


#BMTABSZ 




011003 




BNE 


FRESHMAP 


; BRANCH ALWAYS 


011004 


* 








011005 


* 








011006 


FNDBMAP 


LDY 


#VCBDEV 


; GET DEVICE NUMBER 


011007 




LDA 


(VCBPTR) , Y 




011008 




LDX 


#0 


; START WITH MAP 'A' 


011009 


FNDMAP1 


CMP 


BMADEV, X 




011010 




BNE 


TRYMAP2 




011011 


FRESHMAP 


STX 


BMTAB 


; SAVE POINTER TO BIT MAP INFO TABLE 


011012 




LDY 


BMASTAT, X 


; IS THIS ONE ALREADY MODIFIED? 


011013 




BMI 


BMFOUND 


; YES, RETURN POINTER IN ' BMADR ' 


011014 




JSR 


GTBMAP 


; OTHERWISE READ IN FRESH BIT MAP 


011015 




BCC 


BMFOUND 


; BRANCH IF SUCCESSFUL. 


011016 




RTS 




; OTHERWISE, RETURN ERROR. 


011017 










011018 


TRYMAP2 


DEX 




; WAS LAST FAILURE MAP 'A' 


011019 




BPL 


FRBMBUF 


; NO, MUST FREE UP ONE OF THE BUFFERS 


011020 




LDX 


#BMTABSZ 


; TRY BIT MAP BUFFER 'B'. 


011021 




JMP 


FNDMAP1 




011022 




PAGE 






011023 


* 








011024 


BMFOUND 


LDX 


BMTAB 


; WHICH TABLE? 


011025 




LDY 


#VCBCMAP 




011026 




LDA 


(VCBPTR) , Y 




011027 




ASL 


A 




011028 




STA 


BASVAL 




011029 




LDA 


BMAMADR, X 


; GET HIGH ADDRESS 
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011030 




STA 


BMADR+1 


011031 




LDA 


BMBUFBNK 


011032 




STA 


SISBMADR 


011033 




LDA 


#0 


011034 




STA 


BMADR 


011035 




CLC 




011036 




RTS 




011037 








011038 


NOMORBIT 


LDA 


#OVRERR 


011039 




SEC 




011040 




RTS 




011041 








011042 


FRBMBUF 


SEC 




011043 




LDX 


BMTAB 


011044 




BEQ 


CHKBMB 


011045 




CLC 




011046 




BIT 


BMASTAT 


011047 




BPL 


GETA.BUF 


011048 


CHKBMB 


BIT 


BMBSTAT 


011049 




BCC 


FREBUF1 


011050 




BPL 


GETB . BUF 


011051 




BIT 


BMASTAT 


011052 




BPL 


GETA.BUF 


011053 


FREBUF1 


LDX 


#0 


011054 




BCC 


FREBUFA 


011055 




LDX 


#BMTABSZ 


011056 


FREBUFA 


STX 


ZPGTEMP 


011057 




JSR 


WRTBMAP 


011058 




BCS 


NOGO 


011059 




LDX 


ZPGTEMP 


011060 




LDA 


#0 


011061 




STA 


BMASTAT, X 


011062 




BCC 


FNDBMAP 


011063 


NOGO 


RTS 




011064 








011065 


UPBMAP 


CPX 


BMADEV 


011066 




BNE 


UPBM1 


011067 




CLC 




011068 




BIT 


BMASTAT 


011069 




BMI 


FREBUF1 


011070 




RTS 




011071 




PAGE 




011072 








011073 


UPBM1 


CPX 


BMBDEV 


011074 




BNE 


NOUPDAT 


011075 




BIT 


BMBSTAT 


011076 




BMI 


FREBUF1 


011077 


NOUPDAT 


CLC 




011078 




RTS 




011079 









; GET BANK NUMBER OF BUFFER BIT MAP BUFFERS 
; BUFFERS ALWAYS FALL ON A PAGE BOUNDARY 
; INDICATE ALL IS VALID AND GOOD! 



; INDICATE REQUEST CAN'T BE FILLED. 
; INDICATE ERROR 



FIND OUT WHICH WAS LAST USED. 
IF 'A' WAS USED CHECK 'B' FIRST 
INDICATE 'A' IS CHECKED FIRST 
IS BUFFER 'A' FREE (UNMODIFIED)? 
YES, USE IT. 
IS BUFFER 'B' FREE? 
BRANCH IF BOTH ARE USED 
YES. . . 
(CHECK 'A') 



; BRANCH IF BUFFER 'A' HAS LEAST PRIORITY. 

; SAVE BM BUFF ID FOR A BIT 

; XREG PASSES BM BUFF ID 

; ERROR ENCOUNTERED ON WRITING 

; FETCH BM BUFF ID 

; AND MARK BM BUFFER AS FREE 

; LOOK AGAIN FOR FRRE BIT MAP BUFFER SPACE 

; RETURN ERROR ON WRITING BM 

; UPDATE BIT MAP OF DEVICE X 

; FREE BUFFER 'A' IF NEEDED. 

; (CARRY CLEAR FOR BUFFER 'A') 



; DON'T UPDATE IF NOT NECESSARY. 

; (CARRY IS SET) 

; RETURN 'NO ERROR' 
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011080 
011081 
011082 
011083 
011084 
011085 
011086 
011087 
011088 
011089 
011090 
011091 
011092 
011093 
011094 
011095 
011096 
011097 
011098 
011099 
011100 
011101 
011102 
011103 
011104 
011105 
011106 
011107 
011108 
011109 
011110 
011111 
011112 
011113 
011114 
011115 
011116 
011117 
011118 
011119 
011120 
011121 
011122 
011123 
011124 
011125 
011126 
011127 
011128 
011129 



CLEARBMS EQU * 

* WITH A DEVICE ARE MARKED INVALID 

* IF A NEW VOLUME IS LOGGED IN ON IT. 

* INPUT ARG: A REG = DEVNUM 

* X REG PRESERVED 

LDY #0 

CMP BMADEV 

BNE CLRBM1 

BIT BMASTAT 

BMI CLRBM2 

STY BMADEV 
CLRBM2 RTS 

CLRBM1 CMP BMBDEV 

BNE CLRBM2 

BIT BMBSTAT 

BMI CLRBM2 

STY BMBDEV 
RTS 



; MAKE SURE ALL BIT MAPS ASSOCIATED 



GTBMAP 



DROP INTO 



DOBMAP 



STA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
CLC 
LDY 
ADC 
STA 
INY 
LDA 
ADC 
STA 
1 RDBMAP ' 

PAGE 

LDA 
STA 
LDA 
PHA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 



BMADEV, X 
BMAMADR, X 
BMADR+1 
BMBUFBNK 
SISBMADR 
#VCBCMAP 
(VCBPTR) , Y 
BMACMAP , X 

#VCBDMAP 
(VCBPTR) , Y 
BMADADR, X 

(VCBPTR) , Y 
#0 

BMADADR+1 , X 



#RDCMD 
DHPCMD 
DEVNUM 

BMADEV, X 
DEVNUM 
BMADADR, X 
BLOKNML 
BMADADR+1, X 
BLOKNMH 
BMAMADR, X 



BRANCH IF BIT MAP A NOT OWNED 

BRANCH IF BITMAP A BUSY 
ELSE, CLEAR IT 
NEED ONLY CLEAR ONE 
BIT MAP B? 

BRANCH IF BIT MAP B NOT OWNED BY DEVNUM 

BRANCH IF BITMAP B BUSY 
ELSE CLEAR IT 

AND RETURN TO CALLER (NO ERRORS) 

SAVE ACC AS CURRENT DEVICE FOR BUFFER 
GET HIGH ORDER ADDRESS OF BUFFER 
SELECTED BY X 
AND GET BANK PAIR NUMBER 
OF BOTH BIT MAP BUFFERS 'A' AND 'B' 
GET LOWEST MAP NUMBER WITH FREE BLOCKS IN IT. 

ASSOCIATE THE OFFSET WITH THE BITMAP CONTROL BLOCK 

ADD THIS NUMBER TO THE BASE 
ADDRESS OF FIRST BIT MAP 

SAVE LOW ADDRESS OF BIT MAP TO BE USED. 
NOW GET HIGH DISK ADDRESS OF MAP 
ADD TO THIS THE STATE OF THE CARRY 

; SAVE HIGH DISK ADDRESS TOO. 



(X CONTAINS AN INDEX TO DETERMINE WHICH BUFFER) 
SAVE DEVICE COMMAND 
FIX THE 'BIT MAP TRASH BUG' 
BY NOT MUNGING DEVNUM 
GET DEVICE NUMBER. 



; AND MAP'S DISK ADDRESS 



; LASTLY GET THE ADDRESS OF THE BUFFER 
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011130 
011131 
011132 
011133 
011134 
011135 
011136 
011137 
011138 
011139 
011140 
011141 
011142 
011143 
011144 
011145 
011146 
011147 
011148 
011149 
011150 
011151 
011152 
011153 
011154 
011155 
011156 
011157 
011158 
011159 
011160 
011161 
011162 
011163 
011164 
011165 
011166 
011167 
01116 
011169 
011170 
011171 
011172 
011173 
011174 
011175 
011176 
011177 
011178 
011179 



WRTBMAP 



WRTGBUF 

RDGBUF 
SVGCMD 



DOBITMAP 
DOIDX 



TTLINK 
WRTINDX 

DOFRST 



8 WRTDFRST 

RDFRST 
FADDR 



LDX 
JSR 
PLA 
STA 
RTS 

LDA 
JMP 

LDA 
BNE 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
LDX 
EQU 
STA 
STX 
LDA 
STA 
JMP 

DS 

LDA 
LDX 
LDY 
STA 
STX 
STY 
LDA 
LDX 
JMP 

LDA 
BNE 
LDA 
LDX 
LDY 
JMP 



CHN 



BMBUFBNK 
DOBITMAP 

DEVNUM 



#WRTCMD 
DOBMAP 

#WRTCMD 

SVGCMD 

#RDCMD 

DHPCMD 

BLOKNML 

TTLINK 

BLOKNMH 

TTLINK+1 

#GBUF/256 

#0 

DBUFPH 
SISBPH 
#0 

DBUFPL 
FILEI02 



#WRTCMD 

IDXADRL 

IDXADRH 

DHPCMD 

BLOKNML 

BLOKNMH 

TINDX+1 

SSTIDXH 

DOIDX 

#WRTCMD 
FADDR 
#RDCMD 
DFIL+D . FRST 
DFIL+D . FRST+1 
DOFRST 



POSN/OPEN, 4, 2 



AND BANK NUMBER. 

(NOTE: LOW ADDRESS IS FIXED TO ZERO AS THIS IS A BUFFER) 
RESTORE 

THE DEVNUM WE CAME IN WITH! 



; WRITE BIT MAP POINTED TO BY X 



SET CALL FOR WRITE. 
BRANCH ALWAYS. 
SET CALL FOR READ. 
PASSED TO DEVICE HANDLER. 
SAVE CURRENT 
GBUF BLOCK 
ADDRESS 

FOR DIRECTORY EXTEND 

GET HIGH ADDRESS OF GENERAL BUFFER 
TO FORCE ACCESS TO NON BANK MEMORY. 



; SELECT BANK 

; GENERAL PURPOSE BUFFERS ALWAYS 

; START ON A PAGE BOUNDARY. 

; END VIA DEVICE DISPATCHER. 

; GBUF CURRENT ADDRESS 



; GET BLOCK ADDRESS OF INDEX BLOCK 
; (ENTRY USED BY RD/WRTDFRST) 



; HIGH RAM ADDRESS OF INDEX BLOCK 

; AND BANK NUMBER. 

; AND GO DO REQUESTED OPERATION. 

; WRITE FILE'S FIRST BLOCK (USED 

; BY CREATE, SO ADDRESS IN 'D.' STUFF) 

; (BUFFER ADDRESS IS IN ' TINDX ' ) 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: ALLOC 
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011180 ************************************************************************* 

011181 
011182 
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011183 
011184 
011185 
011186 
011187 
011188 
011189 
011190 
011191 
011192 
011193 
011194 
011195 
011196 
011197 
011198 
011199 
011200 
011201 
011202 
011203 
011204 
011205 
011206 
011207 
011208 
011209 
011210 
011211 
011212 
011213 
011214 
011215 
011216 
011217 
011218 
011219 
011220 
011221 
011222 
011223 
011224 
011225 
011226 
011227 
011228 
011229 
011230 
011231 



DOCUMENT : SOS1 . 3 . 3of 5 . THREE : SOS . CREATE . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: CREATE 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



CREATE 



CRERR1 



TSTFNF 



CREAT1 
ZERCALL 



MOVPARM 



CRENAM 



CRENAM1 



PAGE 

EQU 

INC 

JSR 

BCS 

LDA 

SEC 

RTS 

CMP 
BNE 
LDA 
BNE 
LDA 
SEC 
RTS 

LDY 
LDA 
STA 
DEY 
BPL 
LDA 
STA 
LDY 
BEQ 
DEY 
CPY 
BCC 
LDA 
RTS 

LDA 
STA 
DEY 
BPL 
LDY 
LDA 
TAY 
LDA 



CFLAG 
LOOKFILE 
TSTFNF 
#DUPERR 



#FNFERR 

CRERR1 

NOFREE 

CREAT1 

#DIRFULL 



#$9 
#0 

C.FILID, Y 

ZERCALL 
#SEEDTYP 
C . STOR 
C . XLEN 
CRENAM 

#$9 

MOVPARM 
#BADLSTCNT 



(C.XLIST) , Y 
C.FILID, Y 

MOVPARM 
#0 

(PATHNML) , Y 
(PATHNML) , Y 



SAY WE ARE IN CREATE (DIR EXTEND) 
CHECK FOR DUPLICATE / GET FREE ENTRY 
ERROR CODE IN ACC MAY BE 'FILE NOT FOUND' 
TELL EM A FILE OF THAT NAME ALREADY EXISTS 
INDICATE ERROR ENCOUNTERED 
RETURN ERROR IN ACC. 

'FILE NOT FOUND' IS WHAT WE WANT 

PASS BACK OTHER ERROR. 

TEST FOR DIRECTORY SPACE 

BRANCH IF VALID FREE ENTRY WAS FOUND. 

RETURN DIRECTORY FULL ERROR 



SET UP DEFAULT PARAMETERS FOR CREATE 
IN THE SPACE DIRECTLY FOLLOWING THE 
CALL SPECIFCATION AND THEN 
CHECK FOR ADDITIONAL PARAMETERS FROM 
USER'S CALL SPEC VIA 'C.CLIST' 
DEFAULT TYPE IS 'SEED' TREE INDEX 

GET THE LENGTH OF THE CALL XTENSION LIST 
IF ZERO THEN USE DEFAULTS 
(SINCE THE POINTER IS AT BYTE 0) 
MAKE SURE WE DON'T HAVE TOO MANY PARAMETERS 
MOVE 'EM IF REASONABLE COUNT. 
INVALID LIST COUNT 
RETURN ERROR. 

MOVE IN THE USER SPECIFIED 
PARAMETERS. VALIDITY IS CHECKED 
AT VARIOUS POINTS FURTHER ALONG IN 
THIS PROCESS. 

MOVE LOCAL FILE NAME TO ENTRY BUFFER. 
GET LENGTH OF LOCAL NAME 
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011232 
011233 
011234 
011235 
011236 
011237 
011238 
011239 
011240 
011241 
011242 
011243 
011244 
011245 
011246 
011247 
011248 
011249 
011250 
011251 
011252 
011253 

011254 * 

011255 SEED 
011256 
011257 

011258 OVFLOW 

011259 

011260 

011261 * 

011262 SEED1 
011263 
011264 
011265 
011266 
011267 
011268 
011269 
011270 
011271 
011272 
011273 
011274 

011275 INCDATA 

011276 

011277 

011278 

011279 TSTSAP 

011280 

011281 



STA 
DEY 
BPL 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
BCS 
LDA 
CMP 
BCC 
JMP 
PAGE 

LDX 
LDA 
BEQ 
LDA 
SEC 
RTS 

LDA 
STA 
LSR 
TAY 
STA 
LDA 
STA 
ROR 
STA 
LDA 
STA 
BNE 
BCC 
INC 
BNE 
INY 
INC 
TYA 
BNE 
LDA 



DFIL+D . STOR, Y 



(MOVE ALL, INCLUDING LENGTH BYTE.) 



CRENAM1 
C.FILID 
DFIL+D. FILID 
C.AUXID 
DFIL+D. AUXID 
C.AUXID+1 
DFIL+D. AUXID+1 

#READEN+WRI TEN+RENAMEN+D STROYEN 
DFIL+D. ATTR 



MOVE FILE AND AUX ID. 



D . HEAD 

DFIL+D. DHDR 

D.HEAD+1 

DFIL+D. DHDR+1 

TWRPROT1 

CRERR1 

C . STOR 

#4 

SEED 
NOTREE 



#SEEDTYP 
C . EOFHH 
SEED1 
#OVRERR 



C . EOFHL 
DFIL+D. EOF+2 

A 

DATBLKH 
C . EOFLH 
DFIL+D. EOF+1 
A 

DATBLKL 

C . EOFLL 

DFIL+D. EOF 

INCDATA 

TSTSAP 

DATBLKL 

TSTSAP 

DATBLKH 

SAPLING 
DATBLKL 



SAVE FILE'S HEADER ADDRESS TOO. 



CAN WE WRITE TO THIS DISKETTE? 

NOW TEST STORAGE TYPE FOR TREE TYPE FILES 

NOTE: THIS IS HARD CODED SINCE ALL TREES ARE LESS THAN 4 *********** 
BRANCH IF SOME TYPE OF TREE (SEED, SAPLING...) 
GO TEST FOR SOME OTHER TYPE (SUCH AS DIRECTORY) . 



START OUT ASSUMING A SEED FILE 
TEST FOR OUT OF RANGE PRE ALLOCATION 
(HOPEFULLY BRANCH ALWAYS) 
REPORT UNABLE TO SATISFY REQUEST. 
INDICATE ERROR 



; CALCULATE THE NUMBER OF 

; BLOCKS NEEDED FOR PRE -ALLOCATION 

; Y HOLDS THE NUMBER OF INDEX BLOCKS NEEDED 

; (CARRY UNDISTURBED FROM LAST SHIFT) 

; WE NOW HAVE THE LOW ORDER COUNT OF NEEDED DATA BLOCKS 



(CARRY IN TACT FROM LOW COUNT) 
BUMP THE COUNT ON DATA BLOCKS IF REQUEST 
IS NOT A MULTIPLE OF 512. 



; MUST INCREASE NUMBER OF INDEXES ALSO. 

; IF NON ZERO, THEN IT'S AT LEAST A SAPLING. 

; TO QUALIFY AS AN HONEST SEED, 
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011282 




BNE 


TSTSEED 


THEN ONE OR LESS DATA BLOCKS REQUESTED 


011283 




INC 


DATBLKL 


(MUST BE AT LEAST ONE BLOCK ALLOCATED 


011284 




BNE 


CREALC 


TYPE IS SEED. BRANCH ALWAYS 


011285 


TSTSEED 


CMP 


#1 


IF GREATER THAN ONE, IT'S NOT A SEED. 


011286 




BEQ 


CREALC 


IT IS A SEED. CONTINUE CREATION 


011287 




INX 




THE TYPE IS SAPLING. 


011288 




INY 




ONE INDEX BLOCK IS NEEDED. 


011289 




BNE 


CREALC 


BRANCH ALWAYS 


011290 




PAGE 






011291 










011292 


SAPLING 


INX 




TYPE IS AT LEAST SAPLING. 


011293 




CMP 


#1 


NO MORE THAN ONE INDEX BLOCK FOR A SAPLING 


011294 




BNE 


TREE 




011295 




LDA 


DATBLKL 


MUST BE SURE THIS IS REAL MAX SAPLING (128K FILE) 


011296 




BEQ 


CREALC 


BRANCH IF IT IS. 


011297 


TREE 


INY 




ACCOUNT FOR ADDITIONAL 2ND LEVEL INDEX 


011298 


* 








011299 




INX 




TYPE IS TREE (2 LEVEL INDEX) 


011300 




INY 




ADD AN EXTRA INDEX BLOCK FOR TOP INDEX 


011301 


CREALC 


STY 


INDXBLK 


STORE INDEX BLOCK COUNT 


011302 




TXA 




PUT STORAGE TYPE IN DIRECTORY ENTRY 


011303 




ASL 


A 




011304 




ASL 


A 




011305 




ASL 


A 




011306 




ASL 


A 




011307 




ORA 


DFIL+D. STOR 




011308 




STA 


DFIL+D. STOR 




011309 




STX 


LEVELS 


SAVE NUMBER OF INDEX LEVELS FOR PREALLOCATION . 


011310 




TYA 




NOW FIGURE THE TOTAL NUMBER OF 


011311 




CLC 




BLOCKS NEEDED (DATA + INDEX BLOCKS) 


011312 




ADC 


DATBLKL 




011313 




STA 


DFIL+D. USAGE 


(MIGHT AS WELL RECORD IT IN DIR 


011314 




STA 


REQL 


WHILE WE'RE AT IT. ) 


011315 




LDA 


DATBLKH 




011316 




ADC 


#0 


UPDATE HI BYTE TOO 


011317 




STA 


DFIL+D. USAGE+1 




011318 




STA 


REQH 




011319 




LDX 


D.DEV 


PASS ALONG THE DEVICE WE'RE TALKIN ABOUT. 


011320 




JSR 


TSFRBLK 


'TEST FREE BLOCKS' FINDS OUT IF ENOUGH FREE SPACE 


011321 




BCS 


OVFLOW 


BRANCH IF NOT ENOUGH SPACE. 


011322 




JSR 


ALC1BLK 


GO ALLOCATE FIRST BLOCK 


011323 




BCS 


CRERR 




011324 




STA 


DFIL+D. FRST 


(RETURNS ACC=LOW Y=HIGH) 


011325 




STA 


IDXADRL 


SAVE AS ADDRESS FOR INCORE INDEX ALSO. 


011326 




STY 


DFIL+D. FRST+1 




011327 




STY 


IDXADRH 




011328 




JSR 


ZERGBUF 


GO CLEAN OUT GBUF 


011329 




JSR 


GTTINDX 


GET TEMPORARY SPACE FOR AN INDEX BLOCK 


011330 




JSR 


ZTMPIDX 


AND ZERO IT OUT. 


011331 




LDX 


LEVELS 
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011332 




DEX 




; TEST FOR NUMBER OF LEVELS NEEDED. 


011333 




BEQ 


ENDCRE 


; BRANCH IF SEED FILE. 


011334 




DEX 




; IS IT A SAPLING PRE -ALLOCATION . 


011335 




BEQ 


SAPFILE 




011336 




LDY 


INDXBLK 


; LOAD NUMBER OF INDEX BLOCKS NEEDED 


011337 




DEY 




; REMOVE THE ONE JUST ALLOCATED. 


011338 




STY 


REQL 




011339 




STY 


INDXBLK 




011340 




JSR 


ALCIDXS 


; GO ALLOCATE INDEXES FOR LOWER INDEX BLOCKS. 


011341 




BCS 


CRERR 




011342 




JSR 


WRTDFRST 


; GO WRITE TREE TOP INDEX BLOCK. 


011343 




BCS 


CRERR 


; BRANCH IF UNABLE TO DO THIS. 


011344 




LDA 


#0 


; INIT INDEX POINTER 


011345 




STA 


TREPTR 




011346 




PAGE 






011347 


FILLTREE 


LDY 


TREPTR 




011348 




LDA 


(TINDX) , Y 


; GET ADDRESS OF LOWER BLOCK 


011349 




STA 


IDXADRL 




011350 




INC 


TINDX+1 


; BUMP TO PAGE 2 TO GET HI ADDRESS. 


011351 




LDA 


(TINDX) , Y 


; GET HIGH ADDRESS. 


011352 




STA 


IDXADRH 




011353 




DEC 


TINDX+1 


; CLEAN UP AFTER SELF . . . 


011354 




DEC 


INDXBLK 


; IS THIS THE LAST BLOCK ALLOCATED? 


011355 




BEQ 


LSTSAP 


; YES, ALLOCATE PARTIAL FILLED INDEX BLOCK 


011356 




LDA 


#0 


; ALLOCATE ALL 256 INDEXES 


011357 




STA 


REQL 




011358 




JSR 


SAPINDX 


; AND WRITE ZEROED DATA BLOCKS. 


011359 




BCS 


CRERR 


; STOP IF ERROR ENCOUNTERED. 


011360 




JSR 


WRTINDX 


; WRITE INDEX BLOCK 


011361 




BCS 


CRERR 


; HOPEFULLY NEVER TAKEN. 


011362 




INC 


TREPTR 




011363 




JSR 


RDFRST 


; READ IN TOP INDEX AGAIN. 


011364 




BCC 


FILLTREE 


; BRANCH IF NO ERROR. 


011365 


CRERR 


SEC 




; JUST IN CASE IT WAS CLEAR. 


011366 




RTS 




; RETURN ERROR. 


011367 










011368 


* 








011369 


SAPFILE 


EQU 






011370 


LSTSAP 


LDA 


DATBLKL 


; GET NUMBER OF DATA BLOCKS (LOW BYTE) REQUESTED. 


011371 




STA 


REQL 




011372 




JSR 


SAPINDX 


; GO ALLOCATE DATA BLOCKS AND WRITE EM. 


011373 




BCS 


CRERR 




011374 


ENDCRE 


JSR 


WRTINDX 


; GO WRITE INDEX BLOCK. (FOR SEED THIS IS DATA.) 


011375 




BCS 


CRERR 




011376 




LDX 


#3 


; MOVE CREATION TIME FOR THIS ENTRY 


011377 


TRETIME 


LDA 


DATELO, X 




011378 




STA 


DFIL+D . CREDT, X 




011379 




DEX 






011380 




BPL 


TRETIME 




011381 


ENDCRE 


INC 


H . FCNT 


; ADD ONE TO TOTAL NUMBER OF FILES IN SPECIFIED DIRECTORY 
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011382 




BNE 


ENDCRE1 


011383 




INC 


H.FCNT+1 


011384 




LDX 


#3 


011385 


ENDCRX 


LDA 


DATELO, X 


011386 




STA 


DFIL+D.MO 


011387 




DEX 




011388 




BPL 


ENDCRX 


011389 


ENDCRE1 


LDX 


D.DEV 


011390 




JSR 


UPBMAP 


011391 




BCS 


CRERR2 


011392 




JSR 


DREVISE 


011393 




RTS 




011394 








011395 




PAGE 




011396 


SAPINDX 


JSR 


ZTMPIDX 


011397 




LDA 


REQL 


011398 




STA 


TLINK 


011399 




JSR 


ALCIDXS 


011400 




BCS 


CRERR 


011401 




LDY 


#0 


011402 




STY 


SAPTR 


011403 




LDA 


(TINDX) , Y 


011404 




STA 


BLOKNML 


011405 




INC 


TINDX+1 


011406 




LDA 


(TINDX) , Y 


011407 




STA 


BLOKNMH 


011408 




DEC 


TINDX+1 


011409 




JSR 


WRTGBUF 


011410 




BCS 


CRERR 


011411 




LDA 


TLINK 


011412 




STA 


REQL 


011413 


DATINIT 


LDY 


SAPTR 


011414 




INY 




011415 




DEC 


REQL 


011416 




BEQ 


DATDONE 


011417 




STY 


SAPTR 


011418 




LDA 


(TINDX) , Y 


011419 




STA 


BLOKNML 


011420 




INC 


TINDX+1 


011421 




TAX 




011422 




BNE 


DATIT1 


011423 




CMP 


(TINDX) , Y 


011424 




BNE 


DATIT1 


011425 




LDA 


#ALCERR 


011426 




JSR 


SYSDEATH 


011427 


DATIT1 


LDA 


(TINDX) , Y 


011428 




STA 


BLOKNMH 


011429 




DEC 


TINDX+1 


011430 




LDA 


#GBUF/256 


011431 




STA 


DBUFPH 



; ENSURE MOD 

; DATE /TIME 

; is 

; INITIALIZED 

; UPDATE APPROPRIATE BIT MAP 

; BRANCH ON BITMAP UPDATE ERR 

; UPDATE DIRECTORY LAST 

; RETURN ERRORS OR OK RESULT 



; ZERO OUT ANY STUFF LEFT OVER. 

; PRESERVE REQUEST COUNT 

; GO ALLOCATE REQUESTED NUMBER OF BLOCKS. 

; THEN WRITE ZEROS TO DATA BLOCKS. 

; USE AS POINTER TO INDEX BLOCK 

; GET DATA BLOCK ADDRESS (LOW BYTE) . 



; GET HIGH ADRRESS OF PRE -ALLOCATED DATA BLOCK. 

; (RESET BUFFER ADDRESS) 

; WRITE DATA BLOCK 

; GET NUMBER REQUESTED AGAIN 

; GET POINTER TO INDEX BLOCK AGAIN. 

; ANTICIPATE DOIN' THE NEXT DATA BLOCK 

; DO WE INDEED HAVE ANOTHER BLOCK TO WRITE. 

; NO, ALL DONE (CARRY CLEAR) . 

; USE AS POINTER TO INDEX BLOCK 

; GET DATA BLOCK ADDRESS (LOW BYTE) . 

; BUMP HI ADDR OF INDEX BUFFER TO ACCESS HIGH ADDR. 

; WAS LOW ADDRESS A ZERO? 

; IF NOT, NO NEED TO CHECK VALIDITH OF HI BYTE 

; BOTH BYTES CAN'T BE ZERO. 



; GET HIGH ADRRESS OF PRE -ALLOCATED DATA BLOCK. 
; (RESET BUFFER ADDRESS) 

; RESET TO ADDR TO GBUF JUST TO BE SURE. 
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011432 
011433 
011434 
011435 
011436 
011437 
011438 
011439 
011440 
011441 
011442 
011443 
011444 
011445 
011446 
011447 
011448 
011449 
011450 
011451 
011452 
011453 
011454 
011455 
011456 
011457 
011458 
011459 
011460 
011461 
011462 
011463 
011464 
011465 
011466 
011467 
011468 
011469 
011470 
011471 
011472 
011473 
011474 
011475 
011476 
011477 
011478 
011479 
011480 
011481 



DATDONE 
REPEATIO 

ZERGBUF 
ZGBUF 



ZTMPIDX 
ZINDX1 

ZINDX2 

CRERR2 
NOTREE 

ISDIR 
DIROVR 

ISDIR1 



DADD1 
TSDIRSZ 



JSR 
BCC 
RTS 

EQU 
LDA 
STA 
JMP 

LDY 
TYA 
STA 
STA 
INY 
BNE 
RTS 



LDY 

TYA 

STA 

INY 

BNE 

INC 

STA 

INY 

BNE 

DEC 

RTS 

PAGE 

CMP 

BEQ 

JMP 

LDA 
ORA 
BEQ 
LDA 
SEC 
RTS 

LDA 
LSR 
TAY 
LDA 
BNE 
BCC 
INY 
TYA 
BEQ 



REPEATIO 
DATINIT 



#RPTCMD 

DHPCMD 

RPEATIOl 

#0 

GBUF, Y 
GBUF+$100, Y 

ZGBUF 



#0 

(TINDX) , Y 

ZINDX1 
TINDX+1 
(TINDX) , Y 

ZINDX2 
TINDX+1 



#DIRTYP 

ISDIR 

NOTDIR 

C . EOFHH 
C . EOFHL 
ISDIR1 
#OVRERR 



C . EOFLH 

A 

C . EOFLL 

DADD1 

TSDIRSZ 



DADD1 



; WRITE DATA BLOCK 

; RETURN STATUS (CARRY SET IF ERROR) 



; ZERO OUT THE GENERAL PURPOSE BUFFER 

; WIPE OUT BOTH PAGES 
; WITH SAME LOOP. 



ZERO OUT TEMPORARY INDEX BLOCK 

THIS HAS TO BE DONE A 
TIME SINCE IT'S INDIRECT. 



; RESTORE PROPER ADDRESS 



IS A DIRECTORY TO BE CREATED? 

YES, DO SO. . . 

NO, TRY NEXT TYPE. 

CAN'T CREATE A DIRECTORY LARGER THAN 
127 BLOCKS (THAT'S HUGE!) 
BRANCH IF WITHIN LIMITS, OTHEWISE 
REQUESTED DIRECTORY SIZE CAN'T BE 
CREATED. SET CARRY TO INDICATE ERROR. 



CALCULATE HOW MANY BLOCKS WILL 
BE NEEDED FOR THIS NEW DIRECTORY. 
(SAVE INITIAL COUNT IN Y) 
IF REQUESTED EOF IS NOT AN EVEN BLOCK 
SIZE, THEN ROUND UP. 
BRANCH IF ROUNING UNNECESSARY. 
ADD ONE TO BLOCK COUNT. 

TEST TO BE SURE SIZE IS GREATER THAN ZERO 
IF ZERO THEN SIZE=1 



Apple / // Sophisticated Operating System (SOS) 1.3 Source Code Listing » PTC 8/ 2001 » Page 249 of 391 



Apple/// Computer I nformation 



011482 
011483 
011484 
011485 
011486 
011487 
011488 
011489 
011490 
011491 
011492 
011493 
011494 
011495 
011496 
011497 
011498 
011499 
011500 
011501 
011502 
011503 
011504 
011505 
011506 
011507 
011508 
011509 
011510 
011511 
011512 
011513 
011514 
011515 
011516 
011517 
011518 
011519 
011520 
011521 
011522 
011523 
011524 
011525 
011526 
011527 
011528 
011529 
011530 
011531 



DRSTUF 



DRSTUF1 



MVHNAME 



CRETIME 



STA 
STA 
ASL 
STA 
LDA 
STA 
STA 
STA 
JSR 
BCS 
JSR 
JSR 
BCS 
STA 
STA 
STY 
STY 
LDA 
STA 
LDA 
STA 
LDY 
BNE 
LDA 
STA 
LDA 
STA 
DEY 
BPL 
LDA 
STA 
LDA 
TAY 
ORA 
STA 
TYA 
ORA 
STA 

LDA 
STA 
DEY 
BNE 
LDX 
LDA 
STA 
STA 
DEX 
BPL 
LDA 



DFIL+D. USAGE 

REQL 

A 

DFIL+D. EOF+1 
#0 

DFIL+D. EOF 

DFIL+D. EOF+2 

REQH 

TSFRBLK 

DIROVR 

ZERGBUF 

ALC1BLK 

CRERR2 

DFIL+D. FRST 

TLINK 

DFIL+D. FRST+1 

TLINK+1 

SOSTMPL 

GBUF 

SOSTMPH 

GBUF+1 

#4 

DRSTUF1 
D.ENTBLK, Y 
GBUF+HRBLK+4, Y 
SOSVER, Y 
GBUF+HVER+4 , Y 

DRSTUF 
H . ENTLN 
GBUF+HRELN+4 
DFIL+D. STOR 

#HEDTYP*16 
GBUF+HNLEN+4 

#DIRTYP*16 
DFIL+D. STOR 

DFIL+D. STOR, Y 
GBUF+HNLEN+4, Y 

MVHNAME 
#3 

DATELO, X 
GBUF+HCRDT+4,X 
DFIL+D. CREDT,X 

CRETIME 
#$76 



; SAVE NUMBER OF BLOCKS TO BE USED. 
; NOW SAVE ADJUSTED END OF FILE 



REQUESTED NUMBER OF BLOCKS NEVER EXCEEDS 128. 
TEST TO BE SURE ENOUGH DISK SPACE IS FREE. 
BRANCH IF REQUEST TOO LARGE. 
CLEAR CRAP FROM GBUF. 

GET ADDRESS OF FIRST (HEADER) BLOCK. 



; (TLINK IS FOR REVERSE LINKAGE.) 
; STORE SOS STAMP IN NEW DIRECTORY 



MOVE OTHER VARIOUS THINGS 

BRANCH ALWAYS 

MOVE OWNING ENTRY'S 

BLOCK ADDRESSES AND NUMBER TO NEW HEADER. 
MOVE VERSION, COMPATABLITY, 
ATTRIBUTES, AND ENTRY SIZE 



OVER WRITE LAST BYTE MOVED IN ABOVE LOOP WITH 
THE PARENT DIRECTORY ENTRY LENGTH. 
SET HEADER TYPE AND NAME 



; (AND WHILE WE'RE AT IT SET DIRECTORY TYPE) 



; MOVE HEADER NAME 



; GET CURRENT DATE. 

; SAVE AS HEADER CREATION TIME 
; AND DATE OF FILE CREATE. 
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011532 




STA 


GBUF+HPENAB+4 


; DUMMY PASSWORD 


011533 




DEC 


REQL 


; TEST FOR ONE BLOCK DIRECTORY 


011534 




BEQ 


DIRCREND 


; IT IS, FINISH UP. 


011535 




JSR 


DIRWRT 


; GO WRITE FIRST DIRECTORY BLOCK AND ALLOCATE 


011536 




BCS 


DERROR 


; PASS BACK ERROR. 


011537 




JSR 


ZERGBUF 


; CLEAN OUT GENERAL BUFFER AGAIN. 


011538 


CRNXTDIR 


LDA 


TLINK 


; MOVE LAST BLOCK ADDRESS 


011539 




STA 


GBUF 


; AS BACKWARD LINK. 


011540 




LDA 


TLINK+1 




011541 




STA 


GBUF+1 




011542 




LDA 


FLINK 


; MAKE FORWARD LINK INTO CURRENT ADDRESS 


011543 




STA 


TLINK 




011544 




LDA 


FLINK+1 




011545 




STA 


TLINK+1 




011546 




DEC 


REQL 


; IS THIS THE LAST BLOCK? 


011547 




BEQ 


DIRCREND 




011548 




JSR 


DIRWRT 


; WRITE THIS BLOCK AND ALLOCATE NEXT. 


011549 




BCS 


DERROR 




011550 




LDA 


#0 


; ZERO OUT FORWARD LINK 


011551 




STA 


GBUF+2 




011552 




STA 


GBUF+3 




011553 




BEQ 


CRNXTDIR 


; BRANCH ALWAYS 


011554 










011555 


DIRCREND 


JSR 


DIRWRT1 


; WRITE LAST BLOCK OF THIS DIRECTORY 


011556 




BCS 


DERROR 




011557 




JMP 


ENDCRE0 


; FINISH UP WRITING OWNER DIRECTORY STUFF. 


011558 


* 








011559 


DIRWRT 


JSR 


ALC1BLK 


; GET ADDRESS OF NEXT BLOCK. 


011560 




BCS 


DERROR 




011561 




STA 


GBUF+2 




011562 




STY 


GBUF+3 


; SAVE LINK ADDRESS 


011563 




STA 


FLINK 




011564 




STY 


FLINK+1 




011565 


DIRWRT1 


LDA 


TLINK 


; GET ADDRESS OF CURRENT BLOCK 


011566 




STA 


BLOKNML 




011567 




LDA 


TLINK+1 




011568 




STA 


BLOKNMH 




011569 




JMP 


WRTGBUF 


; GO WRITE IT OUT 


011570 




PAGE 






011571 










011572 


ERRGBUF 


EQU 






011573 


DERROR 


RTS 






011574 


* 








011575 










011576 


SOSTMPL 


DFB 


$0 


; THE FOLLOWING TWO BYTES ARE THE 'SOS STAMP' 


011577 


SOSTMPH 


DFB 


$0 




011578 










011579 


SOSVER 


DFB 


0,0,0, $27, 13 




011580 










011581 
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011582 
011583 
011584 
011585 
011586 
011587 
011588 
011589 
011590 
011591 
011592 
011593 
011594 
011595 
011596 
011597 
011598 
011599 
011600 
011601 
011602 
011603 
011604 
011605 
011606 
011607 
011608 
011609 
011610 
011611 
011612 
011613 
011614 
011615 
011616 
011617 
011618 
011619 
011620 
011621 
011622 
011623 
011624 
011625 
011626 
011627 
011628 
011629 
011630 
011631 



RNDTAB 
ENTCALC 



ECALCO 
ECALC1 



ECALC2 

DERROR2 
DREVISE 

MOD TIME 
DREVISE1 



MVDENT 



EQU 
LDA 
STA 
LDA 
LDX 
CLC 
DEX 
BEQ 
ADC 
BCC 
INC 
BCS 

STA 
RTS 
PAGE 
RTS 

LDA 
BEQ 
LDX 
LDA 
STA 
DEX 
BPL 

LDA 
ORA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
BCS 
JSR 
LDY 
DEY 
LDA 
STA 
DEY 
BPL 
LDA 
CMP 
BNE 
LDA 
CMP 
BEQ 



#GBUF/256 

DRBUFPH 

#4 

D . ENTNUM 



ECALC2 
H . ENTLN 
ECALC1 
DRBUFPH 
ECALCO 

DRBUFPL 



DATELO 
DREVISE 1 
#3 

DATELO, X 
DFIL+D . MODDT, X 

MODTIME 

DFIL+D. ATTR 

BKBITFLG 

DFIL+D. ATTR 

D.DEV 

DEVNUM 

D . ENTBLK 

BLOKNML 

D . ENTBLK+1 

BLOKNMH 

RDGBUF 

ERRGBUF 

ENTCALC 

H . ENTLN 

DFIL+D. STOR, Y 
(DRBUFPL) , Y 

MVDENT 

D . HEAD 

BLOKNML 

SVENTDIR 

D.HEAD+1 

BLOKNMH 

UP HEAD 



; SET HIGH ADDRESS OF DIRECTORY ENTRY INDEX POINTER 

; CALCULATE ADDRESS OF ENTRY BASED 

; ON THE ENTRY NUMBER 

; ADDR=GBUF+ ( ( ENTNUM- 1) *ENTLEN) 



; BUMP HI ADDRESS 
; BRANCH ALWAYS. 

; SAVE NEWLY CALCULATED LOW ADDRESS 



IF NO CLOCK, 

THEN DON'T TOUCH MOD T/D 

MOVE LAST MODIFICATION DATE/TIME TO ENTRY BEING UPDATED. 



; MARK ENTRY AS BACKUPABLE 
; BIT 5 = BACKUP NEEDED BIT 

GET DEVICE NUMBER OF DIRECTORY 
TO BE REVISED. 

AND ADDRESS OF DIRECTORY BLOCK 
THAT CONTAINS THE ENTRY. 



; READ BLOCK INTO GENERAL PURPOSE BUFFER. 

; FIX UP POINTER TO ENTRY LOCATION WITHIN GBUF . 
; NOW MOVE 'D.' STUFF TO DIRECTORY. 



IS THE ENTRY BLOCK THE SAME AS THE 
ENTRY'S HEADER BLOCK? 
NO, SAVE ENTRY BLOCK 
MAYBE, TEST HIGH ADDRESSES 

; BRANCH IF THEY ARE THE SAME BLOCK. 
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011632 


SVENTDIR JSR 


WRTGBUF 


; WRITE UPDATED DIRECTORY BLOCK 


011633 


BCS 


DERROR2 


; RETURN ANY ERROR. 


011634 


LDA 


D . HEAD 


; GET ADDRESS OF HEADER BLOCK 


011635 


STA 


BLOKNML 




011636 


LDA 


D.HEAD+1 




011637 


STA 


BLOKNMH 




011638 


JSR 


RDGBUF 


; READ IN HEADER BLOCK FOR MODIFICATION 


011639 


BCS 


DERROR2 




011640 


UP HEAD LDY 


#1 


; UPDATE CURRENT NUMBER OF FILES IN THIS DIRECTORY 


011641 


UPHED1 LDA 


H.FCNT, Y 




011642 


STA 


GBUF+HCENT+4 , Y 


; (CURRENT ENTRY COUNT) 


011643 


DEY 






011644 


BPL 


UPHED1 




011645 


LDA 


H . ATTR 


; ALSO UPDATE HEADER'S ATTRIBUTES. 


011646 


STA 


GBUF+HATTR+4 




011647 


JSR 


WRTGBUF 


; GO WRITE UPDATED HEADER 


011648 


DERROR1 RTS 




; IMPLICITLY RETURN ANY ERRORS 


011649 








011650 


PAGE 






011651 








011652 


NOTDIR LDA 


#TYPERR 


; NOT TREE OR DIRECTORY- NOT A RECOGNIZED TYPE! 


011653 


TSTERR SEC 






011654 


RTS 




; DO NOTHING. 


011655 


* 






011656 


* 






011657 


TSTSOS LDA 


GBUF 


; TEST SOS STAMP 


011658 


CMP 


SOSTMPL 




011659 


BNE 


TSTERR 




011660 


LDA 


GBUF+1 




011661 


CMP 


SOSTMPH 




011662 


BNE 


TSTERR 




011663 


LDA 


GBUF+4 


; TEST FOR HEADER 


011664 


AND 


#$E0 




011665 


CMP 


#HEDTYP*16 




011666 


BNE 


TSTERR 


; BRANCH IF NOT SOS HEADER (NO ERROR NUMBER) 


011667 


CLC 




; INDICATE NO ERROR 


011668 


RTS 






011669 








011670 


CHN 


FNDFIL, 4, 1 




011671 


NE TSTERR 






011672 


LDA 


GBUF+4 


; TEST FOR HEADER 


011673 


AND 


#$E0 




011674 


CMP 


#HEDTYP*16 




011675 


BNE 


TSTERR 


; BRANCH IF NOT SOS HEADER (NO ERROR NUMBER) 


011676 


CLC 




; INDICATE NO ERROR 


011677 


RTS 






011678 








011679 


CHN 


FNDFIL, 4, 1 




011680 


O ERROR 






011681 


RTS 
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011682 










011683 




CHN 


FNDFIL, 4, 1 




011684 




ENTRY 


TOO. 




011685 




LDY 


#D.MODDT+3 




011686 


RIPTIME 


LDA 


DATELO, X 




011687 




STA 


(DRBUFPL) , Y 




011688 




DEY 






011689 




DEX 






011690 




BPL 


RIPTIME 


;MOVE ALL FOR BYTES. . . 


011691 


RUPDATE 


JSR 


WRTGBUF 


; WRITE UPDATED ENTRY BACK TO DISK. (ASSUMES BLOKNM UND I S TURBEDD ) 


011692 




BCS 


DERROR1 


;GIVE UP ON ANY ERROR. 


011693 




LDY 


#D . DHDR 


;NOW COMPARE CURRENT BLOCK NUMBER TO THIS 


011694 




LDA 


(DRBUFPL) , Y 


; ENTRY'S HEADER BLOCK 


011695 




INY 






011696 




CMP 


BLOKNML 


; ARE LOW ADDRESSES THE SAME? 


011697 




STA 


BLOKNML 


; (SAVE IT IN CASE IT'S NOT) 


011698 




BNE 


RIPPLE2 


; BRANCH IF ENTRY DOES NOT RESIDE IN SAME BLOCK AS HEADER. 


011699 




LDA 


(DRBUFPL) , Y 


; CHECK HIGH ADDRESS JUST TO BE SURE. 


011700 




CMP 


BLOKNMH 




011701 




BEQ 


RIPPLE 


; THEY ARE THE SAME, CONTINUE RIPPLE TO ROOT DIRECTORY. 


011702 


RIPPLE2 


LDA 


(DRBUFPL) , Y 


; THEY AREN'T THE SAME, READ IN THIS DIRECTORY'S HEADER. 


011703 




STA 


BLOKNMH 




011704 




JSR 


RDGBUF 




011705 




BCC 


RIPPLE 


; CONTINUE IF READ WAS GOOD. 


011706 


DERROR1 


EQU 






011707 




RTS 






011708 




PAGE 






011709 










011710 


NOTDIR 


LDA 


#TYPERR 


;NOT TREE OR DIRECTORY- NOT A RECOGNIZED TYPE! 


011711 


TSTERR 


SEC 






011712 




RTS 




;DO NOTHING. 


011713 


* 








011714 










011715 


TSTSOS 


LDA 


GBUF 


; TEST SOS STAMP 


011716 




CMP 


SOSTMPL 




011717 




BNE 


TSTERR 




011718 




LDA 


GBUF+1 




011719 




CMP 


SOSTMPH 




011720 




BNE 


TSTERR 




011721 




LDA 


GBUF+4 


; TEST FOR HEADER 


011722 




AND 


#$E0 




011723 




CMP 


#HEDTYP*16 




011724 




BNE 


TSTERR 


; BRANCH IF NOT SOS HEADER (NO ERROR NUMBER) 


011725 


DRVISDNE 


CLC 




; INDICATE NO ERROR./ 


011726 




RTS 






011727 










011728 




CHN 


FNDFIL, 4, 1 





011729 
011730 

011731 ************************************************************************* 
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011732 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: CREATE 

011733 ************************************************************************* 
011734 
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011735 
011736 
011737 
011738 
011739 
011740 
011741 
011742 
011743 
011744 
011745 
011746 
011747 
011748 
011749 
011750 
011751 
011752 
011753 
011754 
011755 
011756 
011757 
011758 
011759 
011760 
011761 
011762 
011763 
011764 
011765 
011766 
011767 
011768 
011769 
011770 
011771 
011772 
011773 
011774 
011775 
011776 
011777 
011778 
011779 
011780 
011781 
011782 
011783 



DOCUMENT : SOS1 . 3 . 3of 5 . THREE : SOS . EQUATES . TXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: EQUATES 

************************************************************************* 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



ENTRY 



BFMGR 



BFM INITIALIZATION ENTRIES 
(INIT CODE FOUND IN INIT.SRC) 



ERRORS 



ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 



EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 



EXTRN 

EXTRN 
EXTRN 
EXTRN 



BFMFCB1 

BFMFCB2 

FCBZPP 

SISTER 

PATHBUF 

VCB 

WORKSPC 

PFIXPTR 

BMAPAGE 

BMBPAGE 

FCBADDRH 

BMAMADR 

BMBMADR 



LEVEL 

OPMSGRPLY 

DATETIME 

DMGR 

REQBUF 

REQFXBUF 

GETBUFADR 

RELBUF 

BLKDLST 

SERR 

BACKMASK 



SYSERR 

BADPATH 
FCBFULL 
BADREFNUM 



FCB PAGE 1 ADDR 
AND PAGE 2 



FILE LEVEL (LOW BYTE) 
OPERATOR MESSAGE 
THANKS TOM. . . 
THANKS BOB . . . 



INVALID PATHNAME SYNTAX 
FILE CONTROL BLOCK FULL 
INVALID REFNUM 
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011784 




EXTRN 


PATHNOTFND 


PATHNAME NOT FOUND 


011785 




EXTRN 


VNFERR 


VOLUME NOT FOUND 


011786 




EXTRN 


FNFERR 


FILE NOT FOUND 


011787 




EXTRN 


DUPERR 


DUPLICATE FILE NAME ERROR 


011788 




EXTRN 


DUPVOL 


DUPLICATE VOLUME CAN'T BE LOGGED IN. 


011789 




EXTRN 


OVRERR 


NOT ENOUGH DISK SPACE FOR P REALLOCATION 


011790 




EXTRN 


DIRFULL 


DIRECTORY FULL ERROR 


011791 




EXTRN 


CP TERR 


FILE INCOMPATIBLE SOS VERSION 


011792 




EXTRN 


TYPERR 


NOT CURRENTLY SUPPORTED FILE TYPE 


011793 




EXTRN 


EOFERR 


POSITION ATTEMPTED BEYOND END OF FILE 


011794 




EXTRN 


POSNERR 


ILLEGAL POSITION (L.T. OR G.T. $FFFFFF) 


011795 




EXTRN 


ACCSERR 


FILE ACCESS R/W REQUEST CONFLICTS WITH ATTRIBUTES. 


011796 




EXTRN 


BTSERR 


USER SUPPLIED BUFFER TOO SMALL 


011797 




EXTRN 


FILBUSY 


EITHER WRITE WAS REQUESTED OR WRITE ACCESS ALREADY ALLOCATED 


011798 




EXTRN 


NOTSOS 


NOT A SOS DISKETTE 


011799 




EXTRN 


BADLSTCNT 


INVALID VALUE IN LIST PARAMETER 


011800 




EXTRN 


XDISKSW 


DISK SWITCHED 


011801 




EXTRN 


NOTBLKDEV 


NOT A BLOCK DEVICE 


011802 




EXTRN 


XNOWRITE 


DISK/MEDIA IS HARDWARE WRITE PROTECTED 


011803 




EXTRN 


XIOERROR 


INFORMATION ON BLOCK DEVICE NOT ACCESSABLE 


011804 




EXTRN 


DIRERR 


DIRECTORY ENTRY COUNT INCONSISTENT WITH ACTUAL ENTRIES 


011805 




EXTRN 


BITMAP ADR 


BIT MAP DISK ADDRESS IMPOSSIBLE 


011806 










011807 


* FATAL ERRORS 








011808 










011809 




EXTRN 


SYSDEATH 




011810 










011811 




EXTRN 


VCBERR 


VOLUME CONTROL BLOCK NOT USABLE 


011812 




EXTRN 


ALCERR 


ALLOCATION BLOCKS INVALID 


011813 




EXTRN 


TOOLONG 


PATHNAME BUFFER OVERFLOW 


011814 




PAGE 






011815 










011816 


* CONSTANTS 








011817 










011818 


DLIMIT 


EQU 


$2F 


DELIMITER IS CURRENTLY AN ASCII '/' 


011819 


SEEDTYP 


EQU 


1 




011820 


SAPTYP 


EQU 


2 




011821 


TRETYP 


EQU 


3 




011822 


DIRTYP 


EQU 


$D 




011823 


HEDTYP 


EQU 


$E 




011824 


RDCMD 


EQU 


$0 




011825 


WRTCMD 


EQU 


$1 




011826 


RPTCMD 


EQU 


$9 




011827 


STATCMD 


EQU 


$02 


REQUEST STATUS OF BLOCK DEVICE. (BIT = WRITE PROTECTED) 


011828 


STATSUB 


EQU 


$0 




011829 


PRETIME 


EQU 


$20 


COMMAND NEEDS CURRENT DATE /TIME STAMP 


011830 


PREREF 


EQU 


$40 


COMMAND REQUIRES FCB ADDRESS AND VERIFICATION 


011831 


PREPATH 


EQU 


$80 


COMMAND HAS PATHNAME TO PREPROCESS 


011832 


SISTER 


EQU 


$1400 




011833 











Apple / // Sophisticated Operating System (SOS) 1.3 Source Code Listing » PTC 8/ 2001 » Page 257 of 391 



Apple/// Computer I nformation 



011834 


* VOLUME STATUS 


CONSTANTS 


(BITS) 


011835 








011836 


DSWITCH 


EQU 


$40 


011837 








011838 


* FILE STATUS CONSTANTS 




011839 


* 






011840 


DATALC 


EQU 


$1 


011841 


IDXALC 


EQU 


$2 


011842 


TOPALC 


EQU 


$4 


011843 


STPMOD 


EQU 


$8 


011844 


USEMOD 


EQU 


$10 


011845 


EOFMOD 


EQU 


$20 


011846 


DATMOD 


EQU 


$40 


011847 


IDXMOD 


EQU 


$80 


011848 


FCBMOD 


EQU 


$80 


011849 








011850 


* FILE ATTRIBUTES CONSTANTS 


011851 








011852 


READEN 


EQU 


$1 


011853 


WRITEN 


EQU 


$2 


011854 


NLINEN 


EQU 


$10 


011855 


BKBITVAL 


EQU 


$20 


011856 


RENAMEN 


EQU 


$40 


011857 


DSTROYEN 


EQU 


$80 


011858 




PAGE 




011859 


* HEADER INDEX CONSTANTS 




011860 








011861 


HNLEN 


EQU 


$0 


011862 


*HNAME EQU $1 ; 


HEADER NAME 


011863 


HPENAB 


EQU 


$10 


011864 


HP ASS 


EQU 


$11 


011865 


HCRDT 


EQU 


$18 


011866 


* HCRTM EQU $1A 


; HEADER CREATION 


011867 


HVER 


EQU 


$1C 


011868 


HCMP 


EQU 


$1D 


011869 


HATTR 


EQU 


$1E 


011870 


* HENTLN EQU $1F ; LENGTH 


OF EACH 


011871 


* HMENT EQU $20 


; MAXIMUM 


NUMBER 


011872 


HCENT 


EQU 


$21 


011873 


HRBLK 


EQU 


$23 


011874 


HRENT 


EQU 


$25 


011875 


HRELN 


EQU 


$26 


011876 


VBMAP 


EQU 


HRBLK 


011877 


VTBLK 


EQU 


HRENT 


011878 








011879 


* VOLUME CONTROL BLOCK INDEX CONS 


011880 








011881 


VCBSIZE 


EQU 


$20 


011882 


VCBNML 


EQU 





011883 


VCBNAM 


EQU 


1 



TIME 



ENTRY 



; FOR DISK SWITCHED ERROR RECOVERY. 



DATA BLOCK NOT ALLOCATED. 

INDEX NOT ALLOCATED 

TOP INDEX NOT ALLOCATED 

STORAGE TYPE MODIFIED 

FILE USAGE MODIFIED 

END OF FILE MODIFIED 

DATA BLOCK MODIFIED 

INDEX BLOCK MODIFIED 

HAS FCB/DIRECTORY BEEN MODIFIED? 



(FLUSH) 



READ ENABLED 
WRITE ENABLED 
NEW LINE ENABLED 

FILE NEEDS BACKUP IF SET (BKBITFLG) 
RENAME OK WHEN ON. 
DESTROY OK WHEN ON. 



HEADER NAME LENGTH (OFFSET INTO HEADER) 

PASSWORD ENABLE BYTE 
ENCODED PASSWORD 
HEADER CREATION DATE 

SOS VERSION THAT CREATED DIRECTORY 
BACKWARD COMPATIBLE WITH SOS VERSION 
HEADER ATTRIBUTES- PROTECT ETC. 



CURRENT NUMBER OF FILES IN DIRECTORY 

OWNER'S DIRECTORY ADDRESS 

OWNER'S DIRECTORY ENTRY NUMBER 

OWNER'S DIRECTORY ENTRY LENGTH 

(USED FOR ROOT DIRECTORY ONLY) 



CURRENT VCB IS 32 BYTES PER ENTRY (VER 0) 
VOLUME NAME LENGTH BYTE 
VOLUME NAME 
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011884 


VCBDEV 




EQU 




$10 






VOLUME'S DEVICE 


011885 


VCBSTAT 




EQU 




$11 






VOLUME STATUS. (80=FILES OPEN. 40=DISK SWITCHED.) 


011886 


VCBTBLK 




EQU 




$12 






TOTAL BLOCKS ON THIS VOLUME 


011887 


VCBTFRE 




EQU 




$14 






NUMBER OF UNUSED BLOCKS 


011888 


VCBROOT 




EQU 




$16 






ROOT DIRECTORY (DISK) ADDRESS 


011889 


*VCBMORG 


EQU 


$18 ; MAP 


ORGANIZATION 


(NOT 


SUPPORTED BY V 0) 


011890 


*VCBMBUF 


EQU 


$19 ; BIT 


MAP 


BUF NUM 








011891 


VCBDMAP 




EQU 




$1A 






FIRST (DISK) ADDRESS OF BITMAP (S) 


011892 


VCBCMAP 




EQU 




$1C 






RELATIVE ADDRESS OF BIT MAP WITH SPACE (ADD TO VCBDMAP) 


011893 


*VCBMNUM 


EQU 


$1D ; RELATIVE BIT MAP 


CURRENTLY IN 


MEMORY 


011894 


VCBOPNC 




EQU 




$1E 






CURRENT NUMBER OF OPEN FILES. 


011895 


VCBSWAP 




EQU 




$1F 






$8X IF VOLUME SWAPPED; $00 IF UNSWAPPED WHERE X=LOW ORDER BYTE 


ADR/ 16 


















011896 


* 
















011897 


* FILE CONTROL BLOCK INDEX 


CONSTANTS 








011898 


















011899 


FCBREFN 




EQU 











FILE REFERENCE NUMBER (POSITION SENSITIVE) 


011900 


FCBDEVN 




EQU 




1 






DEVICE (NUMBER) ON WHICH FILE RESIDES 


011901 


*FCBHEAD 


EQU 


2 ; BLOCK 


ADDRESS OF FILE'S 


DIRECTORY HEADER 


011902 


*FCBDIRB 


EQU 


4 ; BLOCK 


ADDRESS OF FILE'S 


DIRECTORY 


011903 


FCBENTN 




EQU 




6 






ENTRY NUMBER WITHIN DIRECTORY BLOCK 


011904 


FCBSTYP 




EQU 




7 






STORAGE TYPE - SEED, SAPLING, TREE, ETC. 


011905 


FCBSTAT 




EQU 




8 






STATUS - INDEX/DATA/EOF/USAGE/TYPE MODIFIED. 


011906 


FCBATTR 




EQU 




9 






ATTRIBUTES - READ/WRITE ENABLE, NEWLINE ENABLE. 


011907 


FCBNEWL 




EQU 




$A 






NEW LINE TERMINATOR (ALL 8 BITS SIGNIFICANT) . 


011908 


FCBBUFN 




EQU 




$B 






BUFFER NUMBER 


011909 


FCBFRST 




EQU 




$C 






FIRST BLOCK OF FILE 


011910 


FCBIDXB 




EQU 




$E 






BLOCK ADDRESS OF INDEX (0 IF NO INDEX) 


011911 


FCBDATB 




EQU 




$10 






BLOCK ADDRESS OF DATA 


011912 


FCBMARK 




EQU 




$12 






CURRENT FILE MARKER. 


011913 


FCBEOF 




EQU 




$15 






LOGICAL END OF FILE. 


011914 


FCBUSE 




EQU 




$18 






ACTUAL NUMBER OF BLOCKS ALLOCATED TO THIS FILE. 


011915 


FCBSWAP 




EQU 




$1A 






$8N = SWAPPED, $00 = UNSWAPPED VOLUME ("N" = VCB ENTRY NUMBER) 


011916 


FCBLEVL 




EQU 




$1B 






LEVEL AT WHICH THIS FILE WAS OPENED 


011917 


FCBDIRTY 




EQU 




$1C 






FCB MARKED AS MODIFIED 


011918 






PAGE 












011919 


















011920 


* ZERO PAGE STUFF 












011921 


















011922 


PAR 




EQU 




$A0 








011923 


COMMAND 




EQU 




PAR 








011924 


C.DNAMP 




EQU 




PAR+1 








011925 


C . PATH 




EQU 




PAR+1 








011926 


C . REFNUM 




EQU 




PAR+1 








011927 


C. ISNEWL 




EQU 




PAR+2 








011928 


C . OUTEOF 




EQU 




PAR+2 








011929 


C . BASE 




EQU 




PAR+2 








011930 


C . MRKPTR 




EQU 




PAR+2 








011931 


C . OUTBUF 




EQU 




PAR+2 








011932 


C . NWPATH 




EQU 




PAR+3 
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011933 
011934 
011935 
011936 
011937 
011938 
011939 
011940 
011941 
011942 
011943 
011944 
011945 
011946 
011947 
011948 
011949 
011950 
011951 
011952 
011953 
011954 
011955 
011956 
011957 
011958 
011959 
011960 
011961 
011962 
011963 
011964 
011965 
011966 
011967 
011968 
011969 
011970 
011971 
011972 
011973 
011974 
011975 
011976 
011977 
011978 
011979 
011980 
011981 
011982 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU PAR+$E 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 

EQU 
EQU 
EQU 

PAGE 



* ZERO PAGE TEMPORARIES 



C.FILIST 
C . NEWL 
C . OUTVOL 
C . OUTREF 
C.XLIST 
C.MAXPTH 
C.MARK 
C . NEWEOF 
C. BYTES 
C.FILSTLN 
C . OUTBLK 
C.OPLIST 
C . XLEN 
C.FILID 
C . OUTCNT 
C.OPLSTLN 
C.AUXID 
C . STOR 
C . EOFLL 
C . EOFLH 
C . EOFHL 
DEBUPTR 
C . EOFHH 
* C. SPARE 

DEVICE 

DHPCMD 

UNITNUM 

DSTATREQ 

DBUFPL 

DBUFPH 

DSTATBFL 

DSTATBFH 

RQCNTL 

RQCNTH 

BLOKNML 

BLOKNMH 

BRDPTR 

DVNAMP 
DVDNUM 

SISBPH 

SISDSTAT 

SSBRDPH 



PAR+3 

PAR+3 

PAR+3 

PAR+3 

PAR+3 

PAR+3 

PAR+3 

PAR+3 

PAR+4 

PAR+5 

PAR+5 

PAR+5 

PAR+5 

PAR+6 

PAR+6 

PAR+7 

PAR+7 

PAR+9 

PAR+$A 

PAR+$B 

PAR+$C 

PAR+$D 

PAR+$D 



$C0 

DEVICE 

DEVICE+1 

DEVICE+2 

DEVICE+2 

DBUFPL+1 

DEVICE+3 

DSTATBFL+1 

DEVICE+4 

RQCNTL+1 

DEVICE+6 

BLOKNML+1 

DEVICE+8 

DEVICE+1 
DEVICE+3 

S I STER+DBUFPH 

SISTER+DSTATBFH 

SISTER+BRDPTR+1 



; NOTE SAME AS BELOW 



TO PASS BACK BUSY, WRITE PROTECT, READ PROTECT. 



(AND 9) 

USED FOR 'VOLUME' TO CALL 

' GET . DNUM ' IN DEVICE MANAGER. 
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011983 


ZTEMPS 


EQU 


$B0 


011984 


PATHNML 


EQU 


ZTEMPS 


011985 


PATHNMH 


EQU 


PATHNML+1 


011986 


USRBUF 


EQU 


ZTEMPS 


011987 


TPATH 


EQU 


ZTEMPS+2 


011988 


WRKPATH 


EQU 


ZTEMPS+4 


011989 


TINDX 


EQU 


ZTEMPS+2 


011990 


DRBUFPL 


EQU 


ZTEMPS+4 


011991 


DRBUFPH 


EQU 


DRBUFPL+1 


011992 


VCBPTR 


EQU 


ZTEMPS+6 


011993 


BMADR 


EQU 


ZTEMPS+8 


011994 


FCBPTR 


EQU 


ZTEMPS+$A 


011995 


DATPTR 


EQU 


ZTEMPS+$C 


011996 


POSPTR 


EQU 


ZTEMPS+$E 


011997 








011998 


MAXTEMPS 


EQU 


$F 


011999 


SISTEMPS 


EQU 


SISTER+ZTEMPS 


012000 


SSTIDXH 


EQU 


SISTER+TINDX+1 


012001 


SISPATH 


EQU 


SISTER+C.PATH+1 


012002 


SSNWPATH 


EQU 


SISTER+C.NWPATH+1 


012003 


SISUSRBF 


EQU 


SISTER+USRBUF+1 


012004 


SISOUTBF 


EQU 


SISTER+C.OUTBUF+1 


012005 


SISTPATH 


EQU 


SISTER+TPATH+1 


012006 


SISBMADR 


EQU 


SISTER+BMADR+1 


012007 


SISFCBP 


EQU 


SISTER+FCBPTR+1 


012008 


SISDATP 


EQU 


SISTER+DATPTR+1 


012009 


SISPOSP 


EQU 


SISTER+POSPTR+1 


012010 








012011 


* 






012012 


* ADDRESSES 






012013 









; NOTE: THIS IS $100 BYTES LONG. 
; THRU $13FF 



FCB PAGE 1 ADDR 
FCB PAGE 2 ADDR 
BIT MAP A ADDR 
BIT MAP B ADDR 



; (THE FOLLOWING DO NOT NEED TO BE ON ZERO PAGE. 7/16/80 JRH.) 



012014 


PATHBUF 


EQU 


$1000 


012015 


VCB 


EQU 


$1100 


012016 


GBUF 


EQU 


$1200 


012017 








012018 


* INITIALIZATION EQUATES 




012019 








012020 


BFMFCB1 


EQU 


$1C 


012021 


BFMFCB2 


EQU 


$1D 


012022 


BMAPAGE 


EQU 


<$B800 


012023 


BMBPAGE 


EQU 


<$BA00 


012024 


FCBZPP 


EQU 


FCBPTR 


012025 


* 






012026 








012027 


* 






012028 




PAGE 




012029 




DSECT 




012030 




ORG 


$0 


012031 


DATBLKL 


DS 


1 


012032 


DATBLKH 


DS 


1 
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012033 


IDXADRL 


DS 


1 


012034 


IDXADRH 


DS 


1 


012035 


REQL 


DS 


1 


012036 


REQH 


DS 


1 


012037 


INDXBLK 


DS 


1 


012038 


LEVELS 


DS 


1 


012039 


TOTENT 


DS 


1 


012040 


ENTCNTL 


DS 


1 


012041 


ENTCNTH 


DS 


1 


012042 


CNTENT 


DS 


1 


012043 


NOFREE 


DS 


1 


012044 


BMCNT 


DS 


1 


012045 


SAPTR 


DS 


1 


012046 


TREPTR 


DS 


1 


012047 


TLINK 


DS 


2 


012048 


FLINK 


DS 


2 


012049 


PATHCNT 


DS 


1 


012050 


PFIXPTR 


DS 


2 


012051 


BMPTR 


DS 


1 


012052 


BASVAL 


DS 


1 


012053 


HALF 


DS 


1 


012054 


* 






012055 


* 






012056 




PAGE 




012057 








012058 


* BIT MAP 


INFO TABLES 


(A & B) 


012059 








012060 


BMTABSZ 


EQU 


$6 


012061 


BMTAB 


DS 


1 


012062 


BMBUFBNK 


DS 


1 


012063 


BMASTAT 


DS 


1 


012064 


BMADEV 


DS 


1 


012065 


BMAMADR 


DS 


1 


012066 


BMADADR 


DS 


2 


012067 


BMACMAP 


DS 


1 


012068 


BMBSTAT 


DS 


1 


012069 


BMBDEV 


DS 


1 


012070 


BMBMADR 


DS 


1 


012071 




DS 


2 


012072 




DS 


1 


012073 


* 






012074 


FCBADDRH 


DS 


1 


012075 


FCBANKNM 


DS 


1 


012076 


TPOSLL 


DS 


1 


012077 


TPOSLH 


DS 


1 


012078 


TPOSHI 


DS 


1 


012079 


RWREQL 


DS 


1 


012080 


RWREQH 


DS 


1 


012081 


BULKCNT 


DS 


1 


012082 


NLCHAR 


DS 


1 



; DISK ADDRESS OF INDEX BLOCK 



; SIMILAR TO VCBCMAP 



; BMBDADR 
; BMBCMAP 



; FILE CONTROL BLOCK'S BUFFER ADDRESS. 
; AND BANK (SISTER PAGE) BYTE. 
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012083 


NPATHDEV 


DS 


3 




; FOR NEW PATHNAME DEVICE AND DIRECTORY HEADER ADDRESS 


012084 


IOACCESS 


DS 


1 




; USED TO DETERMINE IF A CALL HAS BEEN MADE TO THE DISK DEVICE 


012085 


DEVNUM 


DS 


1 




; CURRENT DEVICE TO BE ACCESSED. 


012086 


TOTDEVS 


DS 


1 




; USED FOR ACCESSING DRIVES IN NUMERIC ORDER 


012087 


CMDTEMP 


DS 


1 




; USED FOR TESTING REFNUM, TIME, AND DSKSWTCH (PRE) PROCESSING . 


012088 


DATELO 


DS 


1 




; DATE AND TIME MUST RESIDE ON ZERO PAGE. 


012089 


DATEHI 


DS 


1 






012090 


TIMELO 


DS 


1 






012091 


TIMEHI 


DS 


1 






012092 












012093 


DUPLFLAG 


DS 


1 




; USED FOR DIFFERENCE BETWEEN VNFERR AND DUPVOL BY SYNPATH 


012094 


ZPGTEMP 


DS 


1 




; A ONE-BYTE UNSTABLE TEMPORARY 


012095 


VCBENTRY 


DS 


1 




; POINTER TO CURRENT VCB ENTRY 


012096 












012097 




DEND 








012098 


* 










012099 




CHN 


PATH, 4, 


1 




012100 












012101 


************************************************************************* 


012102 


* END OF APPLE 


/// SOS 


1.3 SOURCE 


CODE FILE: 


EQUATES 


012103 


************************************************************************* 


012104 












012105 
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012106 
012107 
012108 
012109 
012110 
012111 
012112 
012113 
012114 
012115 
012116 
012117 
012118 
012119 
012120 
012121 
012122 
012123 
012124 
012125 
012126 
012127 
012128 
012129 
012130 
012131 
012132 
012133 
012134 
012135 
012136 
012137 
012138 
012139 
012140 
012141 
012142 
012143 
012144 
012145 
012146 
012147 
012148 
012149 
012150 
012151 
012152 
012153 
012154 



DOCUMENT : SOS1 . 3 . 3of 5 . THREE : SOS . FNDFIL . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: FNDFIL 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

PAGE 



FINDFILE 



MOVENTRY 
MOVENT 1 



NOFIND 



LOOKFILE 



PHANTM1 



PHANTM2 



JSR 
BCS 
LDY 
LDA 
STA 
DEY 
BPL 
LDA 
RTS 
PAGE 



JSR 
BCS 
LDY 
LDA 
BNE 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
DEY 
CPY 
BNE 
LDA 
STA 
DEY 
CPY 
BNE 
LDA 
STA 
LDA 
RTS 



LOOKFILE 
NOFIND 
H . ENTLN 
(DRBUFPL) , Y 
DFIL+D . STOR, Y 

MOVENT 1 
#0 



PREPROOT 

FNDERR 

#0 

(PATHNML) , Y 
LOOKFIL0 
#GBUF/256 
DRBUFPH 
#4 

DRBUFPL 
#D.AUXID 
(DRBUFPL) , Y 
DFIL, Y 

#D.CREDT-1 
PHANTM1 

ROOTSTUF-D . FILID, Y 
DFIL, Y 

#D.FILID-1 
PHANTM2 
#DIRTYP*$10 
DFIL+D. STOR 
#BADPATH 



SEE IF FILE EXISTS 

BRANCH IF AN ERROR WAS ENCOUNTERED 
MOVE ENTIRE ENTRY INFO TO A SAFE AREA 



TO INDICATE ALL IS WELL 
RETURN CONDITION CODES. 



FIND VOLUME AND SET UP OTHER BORING STUFF 

PASS BACK ANY ERROR ENCOUNTERED 

TEST TO SEE IF ONLY ROOT WAS SPECIFIED. 

BRANCH IF MORE THAN ROOT. 
OTHERWISE, REPORT A BADPATH ERROR 
(BUT FIRST CREATE A PHANTOM ENTRY FOR OPEN) 



FIRST MOVE IN ID, AND DATE STUFF. 



; FAKE DIRECTORY FILE 
; (CARRY IS SET) 
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012155 
012156 
012157 
012158 
012159 
012160 
012161 
012162 
012163 
012164 
012165 
012166 
012167 
012168 
012169 
012170 
012171 
012172 
012173 
012174 
012175 
012176 
012177 
012178 
012179 
012180 
012181 
012182 
012183 
012184 
012185 
012186 
012187 
012188 
012189 
012190 
012191 
012192 
012193 
012194 
012195 
012196 
012197 
012198 
012199 
012200 
012201 
012202 
012203 
012204 



ROOTSTUF 



LOOKFIL0 



LOOKFIL1 



DCRENTH 

ERRDIR 
FNDERR 

NAMFOJMP 



LOOKFIL2 



NXTDIR0 



TELFREEX 

FNF0X 

CFLAG 

TTSAVE 

BLOKSAVE 

ERRFNF 



DFB 
DFB 

LDA 
STA 
SEC 
LDA 
STA 
JSR 
BCC 
LDA 
SBC 
BCC 
BNE 
CMP 
BEQ 
BNE 
DEC 
BPL 
LDA 
SEC 
RTS 
JMP 

PAGE 

STA 

LDA 

STA 

LDA 

BNE 

CMP 

BEQ 

STA 

LDA 

STA 

JSR 

BCC 

RTS 

JMP 

JMP 

DS 
DS 
DS 

LDA 
BNE 
LDA 
BNE 



0,2,0,4 
0,0,8,0 

#0 

NOFREE 
#0 

TOTENT 

LOOKNAM 

NAMFOJMP 

ENTCNTL 

TOTENT 

DCRENTH 

LOOKFIL2 

ENTCNTH 

ERRFNF 

LOOKFIL2 

ENTCNTH 

LOOKFIL2 

#DIRERR 



NAMFOUND 



ENTCNTL 

#GBUF/256 

DRBUFPH 

GBUF+2 

NXTDIR0 

GBUF+3 

ERRDIR 

BLOKNML 

GBUF+3 

BLOKNMH 

RDGBUF 

LOOKFIL1 

TELFREE 

FNF0 

1 

2 
2 

NOFREE 
FNF0X 
GBUF+2 
TELFREEX 



; RESET FREE ENTRY INDICATOR 

; INDICATE THAT THE DIRECTORY TO BE SEARCHED HAS HEADER IN THIS BLOCK 
; RESET ENTRY COUNTER 

LOOK FOR NAME POINTED TO BY ' PATHNML ' 
BRANCH IF NAME WAS FOUND. 
HAVE WE LOOKED AT ALL OF THE 

ENTRIES IN THIS DIRECTORY? 
MAYBE, CHECK HI COUNT. 
NO, READ NEXT DIRECTORY BLOCK 
HAS THE LAST ENTRY BEEN LOOKED AT (ACC=0) 
YES, GIVE 'FILE NOT FOUND' ERROR. 
BRANCH ALWAYS. 
SHOULD BE AT LEAST 1 
(THIS SHOULD BE BRANCH ALWAYS...) 
REPORT DIRECTORY MESSED UP. 
INDICATE ERROR HAS BEEN ENCOUNTERED. 

; AVOID BRANCH OUT OF RANGE 



KEEP RUNNING COUNT 
RESET INDIRECT POINTER 

GET LINK TO NEXT DIRECTORY BLOCK 
(IF THERE IS ONE) 
ARE BOTH ZERO, I.E. NO LINK? 

IF SO, THEN NOT ALL ENTRIES WERE ACCOUNTED FOR. 



GO READ THE NEXT LINKED DIRECTORY IN. 

BRANCH IF NO ERROR. 

RETURN ERROR (IN ACCUMULATOR) . 



; AVOID BRANCH OUT OF RANGE 

AM I CREATING? 
CURRENT BLOCK ADDR 
PARENT DIR ADDR 

; WAS ANY FREE ENTRY FOUND? 

; TEST LINK 
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012205 
012206 
012207 
012208 
012209 
012210 
012211 
012212 
012213 
012214 
012215 
012216 
012217 
012218 
012219 
012220 
012221 
012222 
012223 
012224 
012225 
012226 
012227 
012228 
012229 
012230 
012231 
012232 
012233 
012234 
012235 
012236 
012237 
012238 
012239 
012240 
012241 
012242 
012243 
012244 
012245 
012246 
012247 
012248 
012249 
012250 
012251 
012252 
012253 
012254 



CMP 
BNE 
LDA 
BEQ 



GBUF+3 
TELFREEX 
CFLAG 
FNFOX 



EXTEND THE DIRECTORY BY A BLOCK 



LDA 
ORA 
BEQ 
LDA 
STA 
LDA 
STA 
JSR 
BCS 

* SAVE CURRENT BLOCK ADDR 

LDA 
STA 
LDA 
STA 

* FETCH DESCENDENT 

LDA 
STA 
LDA 
STA 
JSR 

* AND INSERT BACK POINTER 

* TO "CURRENT BLOCK" 

LDA 
STA 
LDA 
STA 
JSR 
BCS 



BLOKSAVE 

BLOKSAVE+1 

FNFOX 

TTLINK 

TLINK 

TTLINK+1 

TLINK+1 

DIRWRT 

FNF0 



TTLINK 
TTSAVE 
TTLINK+1 
TTSAVE+1 



GBUF+2 

BLOKNML 

GBUF+3 

BLOKNMH 

ZERGBUF 



TTSAVE 
GBUF 

TTSAVE+1 
GBUF+1 
WRTGBUF 
ERTS 



UPDATE DIR'S HEADER IN PARENT 



LDA 
STA 
LDX 
STX 
JSR 
LDY 



BLOKSAVE 

BLOKNML 

BLOKSAVE+1 

BLOKNMH 

RDGBUF 

#D . USAGE 



IF BOTH ARE ZERO, THEN GIVE UP 
BRANCH IF NOT LAST DIR BLOCK 
DOING A CREATE? 
NO, SIMPLY REPORT NOT FOUND 



BUT NOT 

IF A ROOT DIRECTORY! 

FORU BLOCKS HARD CODED 
FETCH CURRENT DIRECTORY 
ADDR (GBUF) 
AND ALLLOCATE A NEW 
BY LINKING TO CURRENT 

RATS! NO SPACE SAY "DIRFULL" 



; INIT THE NEW DIR BLOCK 



; PREPARE TO READ PARENT 



; FETCH PARENT 

; BUMP BLOCKS USED BY HEADER 
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012255 
012256 
012257 
012258 
012259 
012260 
012261 
012262 
012263 
012264 
012265 
012266 
012267 
012268 
012269 
012270 
012271 
012272 
012273 
012274 
012275 
012276 
012277 
012278 
012279 
012280 
012281 
012282 
012283 
012284 
012285 
012286 
012287 
012288 
012289 
012290 
012291 
012292 
012293 
012294 
012295 
012296 
012297 
012298 
012299 
012300 
012301 
012302 
012303 
012304 



TELFREE 



FNFO 



ERRPATH1 



ERTS 
FNF1 



NAMFOUND 



LDA 
SEC 
ADC 
STA 
INY 
LDA 
ADC 
STA 
LDY 
LDA 
CLC 
ADC 
STA 
INY 
LDA 
ADC 
STA 
JSR 
LDA 
STA 
LDA 
STA 
JSR 
JMP 

STA 
LDA 
STA 
LDA 
STA 
STA 
LDY 
LDA 
TAY 
INY 
LDA 
SEC 
BEQ 
LDA 
RTS 
LDA 
RTS 
PAGE 

LDA 
SEC 
ADC 
TAY 
CLC 
LDA 



(DEBUPTR) , Y 
#0 

(DEBUPTR) , Y 

(DEBUPTR) , Y 
#0 

(DEBUPTR) , Y 
#D.EOF+l 
(DEBUPTR) , Y 

#2 

(DEBUPTR) , Y 

(DEBUPTR) , Y 
#0 

(DEBUPTR) , Y 
WRTGBUF 
TTSAVE+1 
BLOKNMH 
TTSAVE 
BLOKNML 
RDGBUF 
ERRFNF 

D . ENTBLK 
GBUF+3 
D.ENTBLK+1 
#1 

D . ENTNUM 

NOFREE 

#0 

(PATHNML) , Y 



(PATHNML) , Y 
FNF1 

#PATHNOTFND 
#FNFERR 



(PATHNML) , Y 
PATHNML 

PATHBUF, Y 



; BY JUST ONE BLOCK 



; TWO BYTE BLOCKS USED 



; INCREASE EOF BY $200 



; REWRITE PARENT DIR BLOCK 
; REFETCH CURRENT DIR BLOCK 



; BACK FROM THE SHADOWS AGAIN 

; VOILA! WE HAVE EXTENDED THE DIRECTORY! 



; ASSUME FIRST ENTRY OF NEXT BLOCK 
IS FREE FOR USE. 

; MARK D. ENTNUM AS VALID (FOR CREATE) 

; TEST FOR 'FILE NOT FOUND' VERSUS 'PATH NOT FOUND' 



; IF NON-ZERO THEN 'PATH NOT FOUND' 

; IN EITHER CASE, INDICATE ERROR. 

; REPORT NO SUCH PATH. 

; REPORT FILE NOT FOUND. 



; (Y=0) 

; TEST FOR LAST NAME IN PATH 

; IF ZERO, THEN THAT WAS LAST NAME 

; TO INDICATE SUCCESS 
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012305 




BEQ 


FILFOUND 






012306 


*NOW CHANGE 


THE PATHNAME 


POINTER TO POINT AT 


THE 


NEXT NAME IN THE PATH 


012307 




STY 


PATHNML 






012308 




LDA 


DRBUFPL 




SAVE PARENTS 


012309 




STA 


DEBUPTR 




ENTRY POINTER 


012310 




LDA 


DRBUFPH 






012311 




STA 


DEBUPTR+1 




IN CASE ENTRY ON PAGE 2 


012312 




LDA 


BLOKNML 




ADDRESS (DIR EXTEND) 


012313 




STA 


BLOKSAVE 






012314 




LDA 


BLOKNMH 






012315 




STA 


BLOKSAVE+1 






012316 




LDY 


#D.STOR 




BE SURE THIS IS A DIRECTORY ENTRY 


012317 




LDA 


(DRBUFPL) , Y 




HIGH NIBBLE WILL TELL 


012318 




AND 


#$F0 






012319 




CMP 


#DIRTYP*16 




IS IT A SUB-DIRECTORY? 


012320 




BNE 


ERRPATH1 




REPORT THE USER'S MISTAKE 


012321 




LDY 


#D . FRST 




GET ADDRESS OF FIRST SUB-DIRECTORY BLOCK 


012322 




LDA 


(DRBUFPL) , Y 






012323 




STA 


BLOKNML 




(NO CHECKING IS DONE HERE FOR A VALID 


012324 




INY 






BLOCK NUMBER ... ) 


012325 




STA 


D . HEAD 




SAVE AS FILE'S HEADER BLOCK TOO. 


012326 




LDA 


(DRBUFPL) , Y 






012327 




STA 


BLOKNMH 






012328 




STA 


D.HEAD+1 






012329 




JSR 


RDGBUF 




READ SUB-DIRECTORY INTO GBUF 


012330 




BCS 


FNDERR1 




RETURN IMMEDIATELY ANY ERROR ENCOUNTERED. 


012331 




LDA 


GBUF+HCENT+4 




GET THE NUMBER OF FILES 


012332 




STA 


ENTCNTL 




CONTAINED IN THIS DIRECTORY 


012333 




LDA 


GBUF+HCENT+5 






012334 




STA 


ENTCNTH 






012335 




LDA 


GBUF+HCMP+4 




TEST BACKWARD COMPATIBILITY 


012336 




BEQ 


MOVHEAD 






012337 


ERRCOMP 


LDA 


#CPTERR 




TELL THEM THIS DIRECTORY IS NOT COMPATABLE 


012338 


NONAME 


EQU 


* 






012339 


FNDERR1 


SEC 








012340 




RTS 








012341 


MOVHEAD 


JSR 


MOVHED0 




MOVE INFO ABOUT THIS DIRECTORY 


012342 




JMP 


LOOKFIL0 




DO NEXT LOCAL PATHNAME 


012343 












012344 


MOVHED0 


LDX 


#$A 




MOVE INFO ABOUT THIS DIRECTORY 


012345 


MOVHED1 


LDA 


GBUF+HCRDT+4,X 






012346 




STA 


H . CREDT, X 






012347 




DEX 








012348 




BPL 


MOVHED1 






012349 




RTS 








012350 


* 










012351 




PAGE 








012352 












012353 












012354 


FILFOUND 


EQU 


* 
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012355 


ENTADR 


LDA 


H.MAXENT 


FIGURE OUT WHICH IS ENTRY NUMBER THIS IS. 


012356 




SEC 






012357 




SBC 


CNTENT 


MAX ENTRIES - COUNT ENTRIES + 1 = ENTRY NUMBER 


012358 




ADC 


#0 


(CARRY IS /WAS SET) 


012359 




STA 


D . ENTNUM 




012360 




LDA 


BLOKNML 




012361 




STA 


D . ENTBLK 




012362 




LDA 


BLOKNMH 


AND INDICATE BLOCK NUMBER OF THIS DIRECTORY. 


012363 




STA 


D.ENTBLK+1 




012364 




CLC 






012365 




RTS 






012366 










012367 


LOOKNAM 


LDA 


H . MAXENT 


RESET COUNT OF FILES PER BLOCK 


012368 




STA 


CNTENT 




012369 




LDA 


#GBUF/256 




012370 




STA 


DRBUFPH 




012371 




LDA 


#4 




012372 


LOKNAM1 


STA 


DRBUFPL 


RESET INDIRECT POINTER TO GBUF 


012373 




BCS 


LOKNAM2 


BRANCH IF THIS BLOCK CONTAINS A HEADER 


012374 




LDY 


#D.STOR 




012375 




LDA 


(DRBUFPL) , Y 


GET LENGTH OF NAME IN DIRECTORY 


012376 




BNE 


ISNAME 


BRANCH IF THERE IS A NAME. 


012377 




LDA 


NOFREE 


TEST TO SEE IF A FREE ENTRY HAS BEEN DECLARED. 


012378 




BNE 


LOKNAM2 


YES BUMP TO NEXT ENTRY 


012379 




JSR 


ENTADR 


SET ADDRESS FOR CURRENT ENTRY 


012380 




INC 


NOFREE 


INDICATE A FREE SPOT HAS BEEN FOUND 


012381 




BNE 


LOKNAM2 


BRANCH ALWAYS. 


012382 










012383 


ISNAME 


AND 


#$F 


STRIP TYPE (THIS IS CHECKED BY ' FILFOUND ' ) 


012384 




INC 


TOTENT 


(BUMP COUNT OF VALID FILES FOUND) 


012385 




CMP 


(PATHNML) , Y 


ARE BOTH NAMES OF THE SAME LENGTH? 


012386 




BNE 


LOKNAM2 


NO, BUMP TO NEXT ENTRY 


012387 




TAY 






012388 


CMP NAME 


LDA 


(DRBUFPL) , Y 


COMPARE NAMES LETTER BY LETTER 


012389 




CMP 


(PATHNML) , Y 




012390 




BNE 


LOKNAM2 




012391 




DEY 




HAVE ALL LETTERS BEEN COMPARED? 


012392 




BNE 


CMPNAME 


NO, CONTINUE.. 


012393 




CLC 




BY GOLLY, WE GOT US A MATCH! 


012394 




RTS 






012395 


* 








012396 


LOKNAM2 


DEC 


CNTENT 


HAVE WE CHECKED ALL POSSIBLE ENTRIES IN THIS BLOCK? 


012397 




BEQ 


NONAME 


YES, GIVE UP. 


012398 




LDA 


H . ENTLN 


ADD ENTRY LENGTH TO CURRENT POINTER 


012399 




CLC 






012400 




ADC 


DRBUFPL 




012401 




BCC 


LOKNAM1 


BRANCH IF WE'RE STILL IN THE FIRST PAGE. 


012402 




INC 


DRBUFPH 


LOOK ON SECOND PAGE 


012403 




CLC 




CARRY SHOULD ALWAYS BE CLEAR BEFORE LOOKING AT NEXT 


012404 




BCC 


LOKNAM1 


BRANCH ALWAYS . . . 
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012405 
012406 
012407 
012408 
012409 
012410 
012411 
012412 
012413 
012414 
012415 
012416 
012417 
012418 
012419 
012420 
012421 
012422 
012423 
012424 
012425 
012426 
012427 
012428 
012429 
012430 
012431 
012432 
012433 
012434 
012435 
012436 
012437 
012438 
012439 
012440 
012441 
012442 
012443 
012444 
012445 
012446 
012447 
012448 
012449 
012450 
012451 
012452 
012453 
012454 



PREPROOT 
ROOT0 
ROOT1 
CLRDSP 



ROOT2 



SRITZ 



ROOT3 
ROOT INFO 



PAGE 



JSR 
BCC 
JSR 
BCS 
LDA 
LDY 
STA 
DEY 
BPL 
LDY 
LDA 
STA 
STA 
INY 
LDA 
STA 
LDY 
LDA 
STA 
STA 
INY 
LDA 
STA 
STA 
JSR 
BCC 
PHA 
LDY 
LDA 
ASL 
PLA 
BCS 
BNE 

JSR 
BEQ 
LDY 
LDA 
BPL 
JSR 
BCC 
LDA 
RTS 

PAGE 

LDY 

LDA 



FINDVOL 

ROOT1 

LOOKVOL 

SRITZ 

#0 

#42 

D.DEV, Y 

CLRDSP 
#VCBDEV 
(VCBPTR) , Y 
DEVNUM 
D.DEV 

(VCBPTR) , Y 
V. STATUS 
#VCBROOT 

(VCBPTR) , Y 
BLOKNML 
D . HEAD 

(VCBPTR) , Y 
BLOKNMH 
D.HEAD+1 

RDGBUF 
ROOT2 

#VCBSTAT 
(VCBPTR) , Y 

A 

ROOTERR 
ROOT0 

CHKROOT 
ROOT 3 
#VCBSTAT 
(VCBPTR) , Y 
ROOT0 
USRREQ 
ROOT1 
#VNFERR 



#$F 

GBUF+HCRDT+3, Y 



FIND CORRECT VOLUME AND DEVICE NUMBER 

BRANCH IF IT WAS FOUND. 

OTHERWISE LOOK ON ALL DEVICES. 

CAN'T FIND IT. 

ZERO OUT DIRECTORY TEMPS 

(DECIMAL) 



; SET UP DEVICE NUMBER 

; FOR FUTURE REFERENCE 

; GET CURRENT STATUS OF THIS VOLUME 

; GET BLOCK ADDRESS OF ROOT DIRECTORY TOO. 



; PRESERVE AS HEADER 



GO READ IN ROOT 
BRANCH IF NO ERROR 
SAVE ERROR CODE 

CHECK THIS BUGGER FOR AN OPEN FILE. 

(SHIFT OPEN STATUS INTO CARRY) 
GET ERROR CODE AGAIN 

BRANCH IF ERROR NEEDS TO BE REPORTED 
OTHERWISE, LOOK ELSEWHERE (BRANCH ALWAYS) . 

VERIFY ROOT NAME 
BRANCH IF MATCHED. 

TEST FOR OPEN FILES ON THIS VOLUME BEFORE 
LOOKING FOR IT ELSEWHERE. 

REQUEST USER MOUNT VOLUME 
USER SAID S/HE DID — CHECK IT 
REPORT VOLUME NOT FOUND ERR IF REFUSE TO INSERT 



(NOTE: X CONTAINS THE LENGTH OF THE ROOT NAME) 
SAVE HEADER INFO. 
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012455 
012456 
012457 
012458 
012459 
012460 
012461 
012462 
012463 
012464 
012465 
012466 
012467 
012468 
012469 
012470 
012471 
012472 
012473 
012474 
012475 
012476 
012477 
012478 
012479 
012480 
012481 
012482 
012483 
012484 
012485 
012486 
012487 
012488 
012489 
012490 
012491 
012492 
012493 
012494 
012495 
012496 
012497 
012498 
012499 
012500 
012501 
012502 
012503 
012504 



ROOTERR 



CHKROOT 



CKROOT1 



NOTROOT 



FINDVOL 



FNDVOL1 



VOLNAM 



STA 
DEY 
BNE 
LDA 
STA 
LDA 
STA 
TXA 
SEC 
ADC 
STA 
CLC 
RTS 



LDY 
LDA 
TAY 
TAX 
EOR 
AND 
BNE 
LDA 
CMP 
BNE 
DEY 
BNE 
RTS 

PAGE 

LDA 

STA 

LDA 

STA 

STA 

PHA 

TAX 

LDY 

LDA 

BEQ 

CMP 

BNE 

CLC 

TAY 

TXA 

ADC 

TAX 

LDA 

CMP 

BNE 



V. STATUS, Y 

ROOTINFO 
H . FCNT 
ENTCNTL 
H.FCNT+1 
ENTCNTH 



PATHNML 
PATHNML 



#0 

(PATHNML) , Y 



GBUF+4 
#$F 

NOTROOT 
(PATHNML) , Y 
GBUF+4 , Y 
NOTROOT 

CKROOT1 



#VCB/256 
VCBPTR+1 
#0 

D.DEV 

VCBPTR 



#0 

VCB,X 
NXTVCB 
(PATHNML) , Y 
NXTVCB 



VCB,X 

(PATHNML) , Y 
VCB,X 
NXTVCB 



; LOOP TIL ALL 15 BYTES MOVED 



; NOW THAT ROOT IS IDENTIFIED, ADJUST 

; PATH NAME POINTER TO NEXT NAME IN THE PATH 



; INDICATE NO ERROR 



; GET LENGTH OF NAME 



; SAVE IN X FOR LATTER ADJUSTMENT TO PATH POINTER 

; DOES PATHNAME HAVE SAME LENGTH AS DIRECTORY NAME? 

; BRANCH IF NOT 

; COMPARE CHARACTER BY CHARACTER 



; LOOP UNTIL ALL CHARACTERS MATCH 



; SEARCH VCB FOR VOLUME NAME 



SAVE LAST SEARCH POSITION 

(INDEX TO PATHNAME POINTER) 
GET LENGTH OF VOLUME NAME TO COMPARE 
BRANCH IF VCB ENTRY IS EMPTY 
ARE NAMES OF SAME LENGTH? 
NO, INDEX NEXT VCB 
SCAN NAME BACKWARDS 



; NOW BOTH INDEXES POINT TO LAST CHARACTER OF THE NAMES TO COMPARE 
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012505 
012506 
012507 
012508 
012509 
012510 
012511 
012512 
012513 
012514 
012515 
012516 
012517 
012518 
012519 
012520 
012521 
012522 
012523 
012524 
012525 
012526 
012527 
012528 
012529 
012530 
012531 
012532 
012533 
012534 
012535 
012536 
012537 
012538 
012539 
012540 
012541 
012542 
012543 
012544 
012545 
012546 
012547 
012548 
012549 
012550 
012551 
012552 
012553 
012554 



FOUNDVOL 



NXTVCB 



LOOKVOL 
LOOKVOL1 



LOKDEV1 



ENTVCB 



ENTVCB2 



DEX 
DEY 
BNE 
PLA 
STA 
TAX 
LDA 
BEQ 
JSR 
BCC 
LDA 
RTS 
CLC 
RTS 

PLA 
CLC 
ADC 
BCC 
RTS 
PAGE 



LDX 
LDA 
STA 
DEX 
BPL 
STA 
INX 
INX 
STX 
LDA 
CMP 
BEQ 
STA 
JSR 
BCC 
LDA 
TAX 
LDA 
BEQ 
TXA 
CLC 
ADC 
BCC 
LDA 
EQU 
TAX 
LDA 



VOLNAM 
VCBPTR 

VCB+VCBSWAP,X 
FOUNDVOL 
SWAP IN 
FOUNDVOL 
#XIOERROR 



#VCBSIZE 
FNDVOL1 



#12 

BLKDLST, X 
SCRTCH, X 

LOOKVOL 1 
TOTDEVS 



SCRTCH 

SCRTCH, X 

D.DEV 

NXTDEV 

DEVNUM 

DEWCB 

LOKVOL1 

#0 

VCB,X 
FREEVCB 



#VCBSIZE 

ENTVCB 

#0 



VCB+VCBSTAT,X 



CHECK ALL CHARACTERS 
SINCE A MATCH IS FOUND 
SET UP INDEX TO VCB ENTRY 

BRANCH IF 

VOLUME NOT SWAPPED 

IF USER REALLY WANTS IT, THEN BRING IN IF SWAPPED 
BRANCH IF SUCCESS 
USER REFUSES TO MOUNT 

INDICATE VOLUME FOUND 



; GET CURRENT INDEX AGAIN. 
VCB ENTRY LENGTH. 

BRANCH IF THER IS ANOTHER TO CHECK 
RETURN WITH CARRY SET TO SHOW FAILURE. 



(1) COUNT+ (12 (DEVICE LIST 
EXTRN 

MY CHANGEABLE COPY 
WORK BACKWARDS SO 

ENTRY ZERO IS TOTAL DEVICES LISTED 
MAKE XREG = ZERO 



DON'T LOOK AGAIN ON A DRIVE THAT HAS BEEN CHECKED 
CHECK FOR DEVICE ALREADY LOGGED IN A VCB 
(CARRY CLEAR IF IT'S THERE) 

; FIND A FREE VCB TO LOG THIS GUY IN 
; INDEX TO NEXT VCB ENTRY 

; FOUND A FREE SPOT. 

; NOW INDEX TO NEXT, AND KEEP LOOKIN 

; (EACH VCB ENTRY IS 32 BYTES) 
; BRANCH IF MORE TO FIND 

; SEE IF WE CAN REPLACE A DEVICE 

; VCB HAS FILES OPEN? 
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012555 
012556 
012557 
012558 
012559 
012560 
012561 
012562 
012563 
012564 
012565 
012566 
012567 
012568 
012569 
012570 
012571 
012572 
012573 
012574 
012575 
012576 
012577 
012578 
012579 
012580 
012581 
012582 
012583 
012584 
012585 
012586 
012587 
012588 
012589 
012590 
012591 
012592 
012593 
012594 
012595 
012596 
012597 
012598 
012599 
012600 
012601 
012602 
012603 
012604 



CHKVLOG 



FREEVCB 



LOKVOL1 



GETROOT 



LOKVOL2 



NXTDEV 



SNSWIT 



BEQ 
TXA 
CLC 
ADC 
BCC 
RTS 

LDY 
LDA 
BNE 
LDA 
SEC 
RTS 
PAGE 

STX 
LDA 
LDX 
BEQ 
LDY 
LDA 
BMI 
LDY 
LDA 
TAX 
DEY 
LDA 
JSR 
BCC 
LDA 
TAY 
STA 
BEQ 

JSR 
BCS 
JSR 
BEQ 

LDX 
CPX 
BCC 
LDA 
RTS 

EQU 
LDY 
LDA 
STA 
JSR 



FREEVCB 



#VCBSIZE 
ENTVCB2 



#0 

(VCBPTR) , Y 
FOUNDVOL 
#DUPVOL 



VCBPTR 

#2 

#0 

GETROOT 
#VCBSTAT 

(VCBPTR) , Y 

SNSWIT 

#VCBROOT+l 

(VCBPTR) , Y 



(VCBPTR) , Y 
GETROT0 
LOKVOL2 
#0 

(VCBPTR) , Y 
NXTDEV 

LOGVCB 
NXTDEV 
CHKROOT 
CHKVLOG 

SCRTCH 
TOTDEVS 
LOKDEV1 
#VNFERR 



#VCBDEV 
(VCBPTR) , Y 
DEVNUM 
TWRPROT1 



; NO, USE IT! 

; SEARCH NEXT VCB ENTRY 

; FAILED TO FIND A FREE VCB ENTRY 

; MAKE SURE VOLUME WAS ACTUALLY LOGGED IN 

; AH, MADE IT. . . 

; WELL, NOT QUITE, THIS VOLUME CAN'T BE LOGGED 



; NOW THIS IS THE POINTER TO A FREE VCB 
; ROOT DIRECTORIES ALWAYS AT BLOCK 2 

BRANCH ALWAYS 

MAKE SURE NO FILES ARE ACTIVE ON 
THE VOLUME BEFORE LOGGING IT IN. 
BRANCH IF FILES ACTIVE 
GET ADDRESS OF ROOT DIRECTORY 
HIGH FIRST. 

; THEN LOW. 



; BRANCH IF SUCCESSFULLY READ. 

; OTHERWISE, TAKE THIS DEVICE OUT OF VCB 

; (VOLUME 'OFF LINE' ) 
; BRANCH ALWAYS 

GO UPDATE VCB TO INCLUDE CURRENT VOLUME INFO 

IF NOT A SOS DISKETTE, SKIP TO NEXT DEVICE 
GO COMPARE TO SEE IF WE FOUND WHAT WE'RE 
LOOKING FOR. . . 

LOOK AT OTHER DEVICES? 



YES. 



; REPORT VOLUME NOT FOUND. 



SENSE DSWITCH 



MAKE SURE DEVICE NUMBER IS CURRENT 
USES DEVNUM 
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012605 




LDA 


DSWGLOB 




DISK SWITCH GLOBAL 


012606 




BEQ 


NXTDEV 




BRANCH IF NO DISK SWITCH 


012607 




JSR 


VERFYVOL 




COMPARES VCBPTR VS. DEVNUM CONTENTS 


012608 




BCC 


NXTDEV 




BRANCH IF DISK HAS NOT BEEN SWITCHED 


012609 




JSR 


CHKROOT 




COMPARES PATHNML VS. GBUF 


012610 




BNE 


NXTDEV 




IGNORE IF NOT WHAT WE ARE LOOKING FOR 


012611 




LDX 


#0 




LOOK FOR FREE 


012612 




JSR 


SNSWIT1 






012613 




BCS 


NXTDEV 




ANY ERRORS LOGGING IN THE NEW VOLUME 


012614 




JMP 


CHKVLOG 




MAKE SURE THE NEW VOLUME IS LOGGED 


012615 


SNSWIT1 


LDA 


VCB,X 




VCB ENTRY 


012616 




BEQ 


SNSWIT2 




BRANCH IF FOUND 


012617 




TXA 








012618 




CLC 








012619 




ADC 


#VCBSIZE 




LOOK AT NEXT VCB AREA 


012620 




TAX 








012621 




BCC 


SNSWIT1 






012622 




RTS 






CAN'T BE LOGGED IN! 


012623 


SNSWIT2 


LDA 


#0 






012624 




STA 


DUPLFLAG 




TURN OFF DUPLICATE VOLUME FLAG 


012625 




STX 


VCBPTR 






012626 




JSR 


LOGVCB1 




PARTIALLY LOG IN THE NEW VOLUME 


012627 




BCS 


NONSOS 




CS MEANS NONSOS ERROR 


012628 




LDA 


DUPLFLAG 




WAS IT A DUPLICATE VOLUME? 


012629 




BNE 


SNSWIT6 




BRANCH IF YES 


012630 




LDY 


#VCBSWAP 




BY MAKING SWAP BYTE NON ZERO 


012631 




LDA 


#1 






012632 




STA 


(VCBPTR) , Y 




SO SWAPOUT WON'T AFFECT 


012633 




LDA 


DEVNUM 




A REG PASSES DEVNUM TO SWAPOUT 


012634 




JSR 


SWAPOUT 




OLD ACTIVE MOUNT MUST BE SWAPPED 


012635 




BCC 


SNSWIT3 






012636 




LDA 


#XIOERROR 




USER REFUSED TO REPLACE OLD VOLUME 


012637 




RTS 








012638 


SNSWIT3 


LDY 


#VCBSWAP 




NOW LOG IN THE NEW ALL THE WAY 


012639 




LDA 


#0 






012640 




STA 


(VCBPTR) , Y 






012641 


SNSWIT4 


JSR 


VERFYVOL 




DON'T BOTHER TO ASK IF NEW VOLUME IS ALREADY 


012642 




BCC 


SNSWIT5 




BRANCH IF NEW VOLUME ON LINE 


012643 




JSR 


USRREQ 




ASK USER TO REMOUNT NEW VOLUME 


012644 




BCC 


SNSWIT4 




USER SAYS THEY DID: CHECK IT OUT 


012645 




LDA 


#VNFERR 






012646 


SNSWIT5 


RTS 








012647 


SNSWIT6 


LDA 


#DUPVOL 






012648 




SEC 








012649 




RTS 








012650 




PAGE 








012651 












012652 


NONSOS 


LDA 


#NOTSOS 


r 


TELL EM IT'S NOT A SOS DISK (COULD BE PASCAL) 


012653 




RTS 




r 


CARRY SHOULD ALREADY BE SET 


012654 
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012655 
012656 
012657 
012658 
012659 
012660 
012661 
012662 
012663 
012664 
012665 
012666 
012667 
012668 
012669 
012670 
012671 
012672 
012673 
012674 
012675 
012676 
012677 
012678 
012679 
012680 
012681 
012682 
012683 
012684 
012685 
012686 
012687 
012688 
012689 
012690 
012691 
012692 
012693 
012694 
012695 
012696 
012697 
012698 
012699 
012700 
012701 
012702 
012703 
012704 



DEWCB 
DVCB1 



DVCB2 



TSTDUPVOL 
TSDUPV1 



TSDUPV2 



NODUPVOL 

FOUNDEV 

FNDDUP1 



FOUNDDUP 



LOGVCB 



LDA 
TAX 
LDA 
BEQ 
LDA 
BNE 
LDA 
CMP 
BEQ 
TXA 
CLC 
ADC 
BCC 
RTS 

LDX 
LDA 
STA 
JSR 
BCS 
LDY 
LDA 
BMI 
LDA 
TAY 
STA 
BEQ 
LDA 
CLC 
ADC 
BCC 
EQU 
CLC 
STX 
RTS 

STA 
SEC 
LDA 
STA 
BCS 
PAGE 



LDY 
LDA 
BEQ 
JSR 
BCC 



#0 

VCB,X 
DVCB2 

VCB+VCBSWAP,X 
DVCB2 

VCB+VCBDEV, X 

DEVNUM 

FOUNDEV 



#VCBSIZE 
DVCB1 



VCBPTR 
#0 

VCBPTR 
CMPVCB 
TSDUPV2 
#VCBSTAT 
(VCBPTR) , Y 
FOUNDDUP 
#0 

(VCBPTR) , Y 
NODUPVOL 
VCBPTR 

tVCBSIZE 
TSDUPV1 



VCBPTR 



DUPLFLAG 

VCBPTR 

VCBENTRY 

FNDDUP1 



#VCBNML 
(VCBPTR) , Y 
LOGVCB 1 
CMPVCB 
VCBLOGD 



; SCAN VCB FOR DEVICE SPECIFIED IN 'DEVNUM' 
; FIRST TEST FOR VALID VCB. 



SWAPPED VOLUMES DON'T COUNT 

AS LOGGED IN 
GET DEVICE NUMBER 
TEST AGAINST REQUESTED DEVICE 
YES, SET UP A POINTER TO IT 
BUMP TO NEXT VCB 



; BRANCH IF MORE TO LOOK AT. 

; RETURN CARRY SET TO INDICATE NOT FOUND 

; PRESERVE CURRENT ADDR OF FREE VCB 

; LOOK FOR A CURRENTLY LOGGED ON VOLUME OF THE SAME NAME. 



; BRANCH IF NO MATCH. 

; TEST FOR ANY OPEN FILES. 

; TELL THE SUCKER HE CAN'T LOOK AT THIS VOLUME! 

; TAKE DUPLICATE OFF LINE IF NO OPEN FILES. 



; RETURN THAT ALL IS OK TO LOG IN NEW. 



; BUMP TO NEXT ENTRY. 



A DUPLICATE HAS BEEN DETECTED. 
INDICATE ERROR 
SAVE ADDRESS OF DUPLICATE 

BRANCH ALWAYS TAKEN 



IS THIS A PREVIOUSLY LOGGED IN VOLUME 
(ACC=0?) 

NO, GO AHEAD AND PREPARE VCB. 
DOES VCB MATCH VOLUME READ? 
YES, DON'T DISTURB IT. 
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012705 


LOGVCB1 


LDA 


#0 


; ZERO OUT VCB ENTRY 


012706 




LDY 


#VCBSIZE-1 




012707 


ZERVCB 


STA 


(VCBPTR) , Y 




012708 




DEY 






012709 




BPL 


ZERVCB 




012710 




JSR 


TSTSOS 


; MAKE SURE IT ' S A SOS DISKETTE. 


012711 




BCS 


VCBLOGD 


; IF NOT, RETURN CARRY SET. 


012712 




JSR 


TSTDUPVOL 


; FIND OUT IF A DUPLICATE WITH OPEN FILES ALREADY EXISTS 


012713 




BCS 


NOTLOG0 




012714 




LDA 


GBUF+4 


; MOVE VOLUME NAME TO VCB 


012715 




AND 


#$F 


; STRIP ROOT MARKER 


012716 




TAY 






012717 




PHA 






012718 


MOVOLNM 


LDA 


GBUF+4, Y 




012719 




STA 


(VCBPTR) , Y 




012720 




DEY 






012721 




BNE 


MOVOLNM 




012722 




PLA 




; GET LENGTH AGAIN 


012723 




STA 


(VCBPTR) , Y 


; SAVE THAT TOO. 


012724 




LDY 


#VCBDEV 


; SAVE DEVICE NUMBER ALSO. 


012725 




LDA 


DEVNUM 




012726 




STA 


(VCBPTR) , Y 




012727 




JSR 


CLEARBMS 


; MARKS THIS DEVICES OLD BITMAPS AS INVALID (A REG PASSED) 


012728 




LDA 


GBUF+VTBLK+4 


; AND TOTOL NUMBER OF BLOCKS ON THIS UNIT, 


012729 




LDY 


#VCBTBLK 




012730 




STA 


(VCBPTR) , Y 




012731 




LDA 


GBUF+VTBLK+5 




012732 




INY 






012733 




STA 


(VCBPTR) , Y 




012734 




LDY 


#VCBROOT 




012735 




LDA 


BLOKNML 


; AND ADDRESS OF ROOT DIRECTORY 


012736 




STA 


(VCBPTR) , Y 




012737 




INY 






012738 




LDA 


BLOKNMH 




012739 




STA 


(VCBPTR) , Y 




012740 




LDY 


#VCBDMAP 




012741 




LDA 


GBUF+VBMAP+4 


; AND LASTLY, THE ADDRESS 


012742 




STA 


(VCBPTR) , Y 


; OF THE FIRST BITMAP 


012743 




LDA 


GBUF+VBMAP+5 




012744 




INY 






012745 




STA 


(VCBPTR) , Y 




012746 




CLC 




; INDICATE THAT IT WAS LOGGED IF POSIBLE. 


012747 


VCBLOGD 


RTS 






012748 


NOTLOG0 


JMP 


NOTLOG1 




012749 




PAGE 






012750 


CMPVCB 


LDA 


GBUF+4 


; COMPARE VOLUME NAME IN VCB 


012751 




AND 


#$F 




012752 




LDY 


#VCBNML 


; WITH NAME IN DIRECTORY 


012753 




CMP 


(VCBPTR) , Y 


; ARE THEY SAME LENGTH 


012754 




BNE 


NOTSAME 
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012755 
012756 
012757 
012758 
012759 
012760 
012761 
012762 
012763 
012764 
012765 
012766 
012767 
012768 
012769 
012770 
012771 
012772 
012773 
012774 
012775 
012776 
012777 
012778 
012779 
012780 
012781 
012782 
012783 
012784 
012785 
012786 
012787 
012788 
012789 
012790 
012791 
012792 
012793 
012794 
012795 
012796 
012797 
012798 
012799 
012800 
012801 
012802 
012803 
012804 



VCBCMP1 



VERFYVOL 



NOVRFY 
NOVRFY1 



GETROT0 



NOT SAME 



RETROT2 



NOTLOG1 



TAY 
LDA 
CMP 
BNE 
DEY 
BNE 
CLC 
RTS 

LDX 
LDA 
JSR 
BCS 
JSR 
BCC 
LDA 
RTS 
LDA 
RTS 

STA 
STX 
JSR 
BCC 
EQU 
SEC 
RTS 

LDX 
LDA 
STA 
STX 
LDY 
LDA 
CMP 
BNE 
JSR 
LDA 
STA 
LDA 
STA 



GBUF+4 , Y 
(VCBPTR) , 
NOTSAME 

VCBCMP1 



#0 
#2 

GETROT0 
NOVRFY 1 
CMPVCB 
NOVRFY 
#0 

#VNFERR 



BLOKNML 
BLOKNMH 
RDGBUF 
RETROT2 



VCBPTR 
VCBENTRY 
VCBPTR 
VCBENTRY 
#VCBDEV 
DEVNUM 
(VCBPTR) , Y 
NOTLOG2 
SWAP IN 
#0 

DUPLFLAG 

VCBPTR 

PATHNML 



; BUT IS A RESULT OF MAKING VOLUME A SPECIAL 
; CASE OF SEARCHING ALL DEVICES FOR 
; A KNOWN VOLUME 

CLC 

RTS 

NOTLOG2 LDA VCBENTRY 

STA VCBPTR 
CLC 
RTS 



; INDICATE MATCH. 



; READ IN ROOT DIRECTORY HEADER. 



PASS BACK WHATEVER OTHER ERROR OCCURS. 
TEST ROOT WITH VOLUME NAME IN VCB . 
BRANCH IF ROOT MATCHES VCB 

OTHERWISE, PASS BACK FOREIGN VOLUME ERROR (SOS OR UCSD) 
RETURN RESULTS IN CARRY . 
NOTHING IN DRIVE 



; STORE ADDRESS AND READ IN ROOT 
; BRANCH IF SUCCESSFULLY READ. 
; INDICATE ERROR 



LOAD THE VCB ADDRESS 
OF THE DUPLICATE VOLUME 



AND SAVE THE FREE VCB SPACE ADDR 
IS DUPLICATE ON SAME DEVICE? 



BRANCH IF NOT 

SWAP IN IF NECESSARY 

NO MORE DUPLICATE VOLUME STATUS 
MAKE CHKROOT WORK IN A MOMENT 
THIS IS INCREDIBLY GROSS 



REACH HERE IF REAL DUPLICATE VOLUME 
RESOTRE FREE VCB PTR 

DUPLICATE VOLUME PRETENDS TO BE NO ERROR 
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012805 




PAGE 






012806 










012807 


TSFRBLK 


LDY 


#VCBTFRE+1 




012808 




LDA 


(VCBPTR) , Y 


FIND OUT IF ENOUGH FREE BLOCKS 


012809 




DEY 




ARE AVAILABLE TO ACCOMODATE REQEST . 


012810 




ORA 


(VCBPTR) , Y 


BUT FIRST FIND OUT IF WE GOT A PROPER COUNT FOR THIS VOLUME 


012811 




BNE 


CMPFREB 


BRANCH IF COUNT IS NON-ZERO 


012812 




DEY 




IF ZERO, THEN COUNT MUST BE TAKEN 


012813 




LDA 


(VCBPTR) , Y 


GET HIGH TOTAL BLKS 


012814 




TAX 




SAVE IT 


012815 




DEY 




GET LOW 


012816 




LDA 


(VCBPTR) , Y 


TOTAL BLKS 


012817 




BNE 


TSFR01 




012818 




DEX 




ADJUST FOR BITMAP BLOCK BOUNDARY 


012819 


TSFR01 


TXA 






012820 




LSR 


A 


DIVIDE BY 16. THE RESULT IS THE NUMBER 


012821 




LSR 


A 


OF BIT MAPS TO BE SEARCHED. 


012822 




LSR 


A 




012823 




LSR 


A 




012824 




STA 


BMCNT 


SAVE IT. 


012825 




LDA 


#0 


START COUNT AT ZERO. 


012826 




STA 


SCRTCH 




012827 




STA 


SCRTCH+1 




012828 




LDA 


#$FF 


MARK 'FIRST FREE' TEMP AS UNKNOWN 


012829 




STA 


NOFREE 




012830 




LDY 


#VCBDEV 


MAKE SURE BIT MAP IS UP TO DATE 


012831 




LDA 


(VCBPTR) , Y 


GET DEVICE NUMBER 


012832 




TAX 




PASS TO 'UPBMAP' IN X 


012833 




JSR 


UPBMAP 


(NOTHING HAPPENS IF IT DON'T HAFTA. ) 


012834 




BCS 


TFBERR 


BRANCH IF WE GOT TROUBLE, 


012835 




LDY 


#VCBDMAP 


GET ADDRESS OF FIRST BIT MAP. 


012836 




LDA 


(VCBPTR) , Y 




012837 




STA 


BLOKNML 




012838 




INY 




(FOR HIGH ADDRESS) 


012839 




LDA 


(VCBPTR) , Y 




012840 




STA 


BLOKNMH 




012841 


BMAPRD 


JSR 


RDGBUF 


USE G (ENERAL) BUFF (ER) FOR TEMPORARY 


012842 




BCS 


TFBERR 


SPACE TO COUNT FREE BLOCKS (BITS) 


012843 




JSR 


COUNT 


GO COUNT EM 


012844 




DEC 


BMCNT 


WAS THAT THE LAST BIT MAP? 


012845 




BMI 


CHGVCB 


IF SO, GO CHANGE FCB TO AVOID DOING THIS AGAIN! 


012846 




INC 


BLOKNML 


NOTE: THE ORGANIZATION OF THE BIT MAPS 


012847 




BNE 


BMAPRD 


ARE CONTIGUOUS FOR SOS VERSION 


012848 




INC 


BLOKNMH 


IF SOME OTHER ORGANIZATION IS IMPLEMENTED, THIS CODE 


012849 




JMP 


BMAPRD 


MUST BE CHANGED! 


012850 




PAGE 






012851 










012852 


CHGVCB 


LDY 


#VCBCMAP 


MARK WHICH BLOCK HAD FIRST FREE SPACE 


012853 




LDA 


NOFREE 




012854 




BMI 


DSKFULL 


BRANCH IF NO FREE SPACE WAS FOUND. 
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012855 




STA 


(VCBPTR) , Y 




012856 




LDY 


#VCBTFRE+1 


; UPDATE THE FREE COUNT. 


012857 




LDA 


SCRTCH+1 


; GET HIGH COUNT BYTE 


012858 




STA 


(VCBPTR) , Y 


; UPDATE VOLUME CONTROL BLOCK. 


012859 




DEY 






012860 




LDA 


SCRTCH 




012861 




STA 


(VCBPTR) , Y 


; AND LOW BYTE TOO . . . 


012862 


CMPFREB 


LDA 


(VCBPTR) , Y 


; COMPARE TOTAL AVAILABLE 


012863 




SEC 






012864 




SBC 


REQL 


; FREE BLOCKS ON THIS VOLUME. 


012865 




INY 






012866 




LDA 


(VCBPTR) , Y 




012867 




SBC 


REQH 




012868 




BCC 


DSKFULL 




012869 




CLC 






012870 




RTS 






012871 


DSKFULL 


LDA 


#OVRERR 




012872 




SEC 






012873 


TFBERR 


RTS 






012874 




PAGE 






012875 










012876 


COUNT 


LDY 


#0 


; BEGIN AT THE BEGINNING. 


012877 


FRCONT 


LDA 


GBUF, Y 


; GET BIT PATTERN 


012878 




BEQ 


FRONT 1 


; DON'T BOTHER COUNTING NOTHIN' 


012879 




JSR 


CNTFREE 




012880 


FRONT 1 


LDA 


GBUF+$100, Y 


; DO BOTH PAGES WITH SAME LOOP 


012881 




BEQ 


FRCNT2 




012882 




JSR 


CNTFREE 




012883 


FRONT 2 


INY 






012884 




BNE 


FRCONT 


; LOOP TILL ALL 512 BYTES COUNTED 


012885 




BIT 


NOFREE 


; HAS FIRST BLOCK WITH FREE SPACE BEEN FOUND 


012886 




BPL 


FRONT 3 


; BRANCH IF IT HAS. 


012887 




LDA 


SCRTCH 


; TEST TO SEE IF ANY BLOCKS WERE COUNTED 


012888 




OPA 


SCRTCH+1 




012889 




BEQ 


FRCNT3 


; BRANCH IF NONE COUNTED. 


012890 




LDY 


#VCBTBLK+1 




012891 




LDA 


(VCBPTR) , Y 


; SHOW THIS MAP IS FIRST WITH FREE SPACE 


012892 




SEC 




; CORRECT FOR EXACT MULTIPLES OF $1000 


012893 




SBC 


#$01 




012894 




LSR 


A 




012895 




LSR 


A 




012896 




LSR 


A 




012897 




LSR 


A 




012898 




SEC 




; SUBTRACT COUNTDOWN FROM TOTAL BIT MAPS 


012899 




SBC 


BMCNT 




012900 




STA 


NOFREE 




012901 


FRONT 3 


RTS 






012902 










012903 


CNTFREE 


ASL 


A 


; COUNT THE NUMBER OF BITS IN THIS BYTE. 


012904 




BCC 


CFREE1 
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012905 
012906 
012907 
012908 
012909 
012910 
012911 
012912 
012913 
012914 
012915 
012916 
012917 
012918 
012919 



CFREE1 



INC 
BNE 
INC 
TAX 
BNE 
RTS 

CHN 



SCRTCH 
CFREE1 
SCRTCH+1 

CNTFREE 



ALLOC, 4, 1 



; LOOP UNTIL ALL BITS COUNTED. 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: FNDFIL 

************************************************************************* 



Apple / // Sophisticated Operating System (SOS) 1.3 Source Code Listing » PTC 8/ 2001 » Page 280 of 391 



Apple / / / Computer I nformation 



012920 
012921 
012922 
012923 
012924 
012925 
012926 
012927 
012928 
012929 
012930 
012931 
012932 
012933 
012934 
012935 
012936 
012937 
012938 
012939 
012940 
012941 
012942 
012943 
012944 
012945 
012946 
012947 
012948 
012949 
012950 
012951 
012952 
012953 
012954 
012955 
012956 
012957 
012958 
012959 
012960 
012961 
012962 
012963 
012964 
012965 
012966 
012967 
012968 



DOCUMENT : SOS1 . 3 . 3of 5 . THREE : SOS . PATH . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: PATH 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

PAGE 



BFMGR 



CLRSIS 



NOPATH 



NOPREREF 



LDX 



LDA 
ASL 
STA 
AND 
TAX 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
STA 
STA 
STA 
STA 
STA 
STA 
DEY 
BPL 
BCC 
JSR 
BCS 
ASL 
BCC 
JSR 
BCS 
ASL 



COMMAND 



DISPTCH,X 

A 

CMDTEMP 
#$3F 

CMDTABLE, X 

CMDADR 

CMDTABLE + 1 , X 

CMDADR+ 1 

#<VCB 

VCBPTR+1 

#BKBITVAL 

BKBITFLG 

#MAXTEMPS 

#0 

SERR 

DSWGLOB 

DUPLFLAG 

CFLAG 

BLOKSAVE 

BLOKSAVE+1 

SISTEMPS, Y 

CLRSIS 

NOPATH 

SETPATH 

ERRORSYS 

CMDTEMP 

NOPREREF 

FINDFCB 

ERRORSYS 

CMDTEMP 



; WHAT CALL? 

; TRANSLATE INTO COMMAND ADDRESS 

; (BIT 7 INDICATES IT'S GOT A PATHNAME TO PREPROCESS) 

; (BIT 6 IS REFNUM PREPROCESS, 5 IS FOR TIME, SO STRIP EM.) 

; MOVE ADDRESS FOR INDIRECT JUMP. 

; (HIGH BYTE) 



INSURE DEFAULT HI ADDRESS TO VCB BEFORE CALLS 
INIT "BACKUP BIT FLAG" 
TO SAY "FILE MODIFIED" 
ZERO OUT SISTER PAGE FOR TEMPS 

MAKE GLOBAL ERROR SAY "NONE" 
"DISK SWITCH GLOBAL" 
"DUPLICATE VOLUME ON LINE" 
SET "CREATE" TO NO 

; SET PARENT DIRECTORY TO NULL 



; CARRY IS UNDISTURBED BY THIS LOOP 

GO PROCESS PATHNAME BEFORE CALLING COMMAND 
BRANCH IF BAD NAME. 
TEST FOR REFNUM PREPROCESSING 

GO SET UP POINTERS TO FCB AND VCB OF THIS FILE. 
BRANCH IF ANY ERRORS ARE ENCOUNTERED. 
LASTLY CHECK FOR NECESSITY OF TIME STAMP. 
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012969 




BCC 


TSWVRFY 




012970 




LDX 


#DATELO 


PASS Z PAGE ADDRESS OF WHERE TO RETURN DATE/TIME 


012971 




JSR 


DATETIME 


(NO ERROR POSIBLE) 


012972 


TSWVRFY 


LDX 


COMMAND 


TEST FOR NECESSITY OF VOLUME VERIFICATION 


012973 




LDA 


#PREPATH+PREREF+PRETIME ; TO ENSURE VCB IS SET 


012974 




AND 


DISPTCH,X 




012975 




BEQ 


EXECUTE 




012976 




LDY 


tVCBSTAT 




012977 




LDA 


(VCBPTR) , Y 




012978 




AND 


tDSWITCH 


WAS THE VOLUME PREVIOUSLY SWITCHED? 


012979 




BEQ 


EXECUTE 




012980 




DEY 




GET DEVICE NUMBER 


012981 




LDA 


(VCBPTR) , Y 




012982 




STA 


DEVNUM 




012983 


DVERIFY 


JSR 


VERFYVOL 


SEE IF PROPER VOLUME NOW ON LINE 


012984 




BCC 


CLRDSWT 


BRANCH IF YES 


012985 




JSR 


USRREQ 


OTHERWISE REQUEST IT BE PUT ON LINE 


012986 




BCC 


DVERIFY 


USER SEZ S/HE DID: CHECK IT OUT 


012987 




LDA 


tVNFERR 


VOLUME NOT FOUND IF USER REFUSES 


012988 




BNE 


ERRORSYS 


REPORT ERROR (BRANCH ALWAYS) 


012989 


CLRDSWT 


LDY 


#VCBSTAT 


GET VOLUME 


012990 




LDA 


(VCBPTR) , Y 


STATUS 


012991 




AND 


#$FF-DSWITCH 


TURN OFF DISK SWITCH 


012992 




STA 


(VCBPTR) , Y 


SO WE WON'T VERIFY NEXT TIME 


012993 


EXECUTE 


JSR 


GOCMD 


EXECUTE COMMAND 


012994 




BCC 


GOODOP 


BRANCH IF SUCCESSFUL 


012995 




CMP 


tXDISKSW 


DISK SWITCH? 


012996 




BNE 


ERRORSYS 


NO, REPORT SOME OTHER 


012997 




LDY 


tVCBSTAT 


MARK VCB WITH SWITCH 


012998 




LDA 


(VCBPTR) , Y 




012999 




AND 


#$FF-DSWITCH 


TO ENSURE VOLUME VERIFIED 


013000 




BPL 


ERRCMD 


NO FILES OPEN SO DSWITCH CANT APPLY 


013001 




OPA 


tDSWITCH 




013002 


ERRCMD 


STA 


(VCBPTR) , Y 




013003 




JMP 


BFMGR 


TRY THE COMMAND AGAIN 


013004 










013005 


ERRORSYS 


JSR 


SYSERR 




013006 


GOODOP 


RTS 




GOOD RETURN 


013007 










013008 


GOCMD 


JMP 


(CMDADR) 




013009 










013010 




PAGE 






013011 










013012 


CMDTABLE 


EQU 






013013 




DW 


CREATE 




013014 




DW 


DESTROY 




013015 




DW 


RENAME 




013016 




DW 


SETINFO 




013017 




DW 


GETINFO 




013018 




DW 


VOLUME 
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013019 
013020 
013021 
013022 
013023 
013024 
013025 
013026 
013027 
013028 
013029 
013030 
013031 
013032 
013033 
013034 
013035 
013036 
013037 
013038 
013039 
013040 
013041 
013042 
013043 
013044 
013045 
013046 
013047 
013048 
013049 
013050 
013051 
013052 
013053 
013054 
013055 
013056 
013057 
013058 
013059 
013060 
013061 
013062 
013063 
013064 
013065 
013066 
013067 
013068 



DISPTCH 



DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 

EQU 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 

PAGE 



SETPATH LDA 
STA 
LDA 
STA 
LDA 
STA 

* DROP INTO 'SYNPATH' 



SYNPATH 



LDA 
STA 
STA 
LDA 
STA 
STA 
LDX 



SETPREFX 

GETPREFX 

OPEN 

NEWLINE 

READ 

WRITE 

CLOSE 

FLUSH 

SETMARK 

GETMARK 

SETEOF 

GETEOF 



PREPATH+PRETIME+0 

PREPATH+PRETIME+1 

PREPATH+PRETIME+2 

PREPATH+PRETIME+3 

PREPATH+4 

5 

6 

7 

PREPATH+8 

PREREF+$ 9 

PREREF+$A 

PREREF+SB 

PRETIME+$C 

PRETIME+$D 

PREREF+$E 

PREREF+$F 

PREREF+$10 

PREREF+$11 



C . PATH 

TPATH 

C.PATH+1 

TPATH+1 

SISPATH 

SISTPATH 



#>PATHBUF 

PATHNML 

WRKPATH 

#<PATHBUF 

PATHNMH 

WRKPATH+ 1 

#0 



CREATE 

DESTROY 

RENAME 

SETINFO 

GETINFO 

VOLUME 

SETPREFIX, PATHNAME MOVED TO PREFIX BUFFER 

GETPREFIX 

OPEN 

NEWLINE 

READ 

WRITE 

CLOSE 

FLUSH, REFNUM MAY BE ZERO TO FLUSH ALL. 

SETMARK 

GETMARK 

SET EOF 

GET EOF 



FOR A REGULAR PATHNAME, 

SET UP TEMP POINTER TO PROCESS 

PATHNAME AND CHECK FOR SYNTAX ERRORS 



; (LEAVE CALL PARAMETERS ALONE!) 



SET UP DEFAULT ADDRESS FOR 

SYNTAXED PATHNAME - 

LENGTH, NAME, LENGTH, NAME, ETC. 



; (ASSUMES FULL PATHNAME, NO PREFIX) . 

; USE INDEXED INDIRECT FOR SOURCE PATHNAME 
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013069 
013070 
013071 
013072 
013073 
013074 
013075 
013076 
013077 
013078 
013079 
013080 
013081 
013082 
013083 
013084 
013085 
013086 
013087 
013088 
013089 
013090 
013091 
013092 
013093 
013094 
013095 
013096 
013097 
013098 
013099 
013100 
013101 
013102 
013103 
013104 
013105 
013106 
013107 
013108 
013109 
013110 
013111 
013112 
013113 
013114 
013115 
013116 
013117 
013118 



DRIVENAM 



PREVOLM 



PREVOLM1 



PREVOLM2 



SPATH2 



TXA 
STA 
TAY 
LDA 
BMI 
BEQ 
STA 
JSR 
LDA 
CMP 
BEQ 
CMP 
BNE 
LDA 
CMP 
BEQ 
INY 
STA 
JSR 
DEC 
BNE 
BEQ 

PAGE 

JSR 

DEC 

TYA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

JSR 

BCC 

CMP 

BNE 

LDX 

BEQ 

LDA 

RTS 

LDY 
LDA 
STA 
INX 
INY 
LDA 
STA 



(PATHNML, X) 

(TPATH, X) 
ERRSYN 
ERRSYN 
PATHCNT 
INCTPTH 

(TPATH, X) 
#DLIMIT 
BUMPATH 
#$2E 

ADPREFIX 
(TPATH, X) 
#DLIMIT 
PREVOLM 

(WRKPATH) , Y 

INCTPTH 

PATHCNT 

DRIVENAM 

PREVOLM1 



INCTPTH 
PATHCNT 

(WRKPATH, X) 

#>PATHBUF 

DVNAMP 

#<PATHBUF 

DVNAMP +1 

#0 

SISTER+DVNAMP+1 

SRCHDEV 

PREVOLM2 

#VNFERR 

SPTHERR 

DUPLFLAG 

SPTHERR 

#DUPVOL 



#0 

VCB,X 
PATHBUF, Y 



VCB,X 
PATHBUF, Y 



; SET BEGINNING OF PATH 

; TO ZERO TO INDICATE NOTHING PROCESSED. 
; GET TOTAL LENGTH OF SOURCE PATHNAME 



(THIS IS USED AS A ' COUNT -DOWN ' ) 

INCREMENT SOURCE POINTER 

GET FIRST CHARACTER OF PATHNAME 

IS IT A FULL PATHNAME (NO PREFIX) ? 

YES, WE'RE READY TO DO IT. 

IS IT A DRIVE NAME ' . ' ? 

NO, ADD PREFIX TO BEGINNING 

MOVE DRIVE NAME FOR VOLUME CALL 

HAVE WE MOVED ENTIRE NAME? 

YES, PROCESS IT. 

(IF THIS IS THE FIRST, MAKE ROOM FOR LENGTH OF NAME) 
BUMP POINTER TO GIVEN NAME. 



; MAKE IT SO POINTING PAST DELIMITER. 
; SAVE LENGTH OF DRIVE NAME. 

; POINT AT PATHNAME BUFFER FOR DEVICE ID CALL. 

; MAKE VIRTUAL POINT AT SWITCHED IN BANK. 

GO IDENTIFY WHICH VOLUME 
BRANCH IF NO ERROR 

WAS IT REPORTED AS 'VOLUME NOT FOUND'? 
NO SOME OTHER ERROR WAS ENCOUNTERED. 

YES, WAS IT NOT FOUND BECAUSE SOME OTHER 'OPEN' VOLUME HAS SAME NAME? 
NO, IT SIMPLY WASN'T FOUND. 
(CARRY IS SET) 



; (X CONTAINS AN INDEX TO VCB) 

; GET VOLUME NAME LENGTH. 

; MOVE VOLUME NAME INTO PATH NAME BUFFER IN 

; PLACE OF DISK DEVICE NAME ('.Dl' OR SIMULAR) 
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013119 




CPY 


PATHBUF 


013120 




BNE 


SPATH2 


013121 




LDX 


#0 


013122 




STX 


PATHNML 


013123 




LDA 


#<PATHBUF 


013124 




STA 


PATHNMH 


013125 




LDA 


PATHCNT 


013126 




BNE 


SPATH3 


013127 




CLC 




013128 




JMP 


ENDPATH 


013129 








013130 


SPATH3 


INY 




013131 




STY 


WRKPATH 


013132 




LDA 


#0 


013133 




LDY 


#<PATHBUF 


013134 




BNE 


NOPREFX 


013135 








013136 


ERRSYN 


LDA 


#BADPATH 


013137 


SPTHERR 


SEC 




013138 




RTS 




013139 








013140 


ADPREFIX 


LDA 


PFIXPTR 


013141 




LDY 


PFIXPTR+1 


013142 


NOPREFX 


STA 


PATHNML 


013143 




STY 


PATHNMH 


013144 




BNE 


FRSTCHAR 


013145 


* 






013146 




PAGE 




013147 








013148 


BUMPATH 


DEC 


PATHCNT 


013149 




CLC 




013150 




BEQ 


ENDPATH 


013151 




JSR 


INCTPTH 


013152 


FRSTCHAR 


LDY 


#0 


013153 




TYA 




013154 




STA 


(WRKPATH, X) 


013155 




LDA 


(TPATH, X) 


013156 




AND 


#$7F 


013157 




CMP 


#$20 


013158 




BEQ 


BUMPATH 


013159 




CMP 


#$5B 


013160 




BCC 


ALFA1 


013161 




AND 


#$5F 


013162 




CMP 


#$5B 


013163 




BCS 


ERRSYN 


013164 








013165 


ALFA1 


CMP 


#$41 


013166 




BCC 


ERRSYN 


013167 




BCS 


SAVPATH 


013168 


* 







; HAVE ALL CHARACTERS BEEN MOVED? 
; RESET X FOR INDEXING 



; IS THAT ALL THERE IS? 
; NO, MORE TO COME. . . 



; BUMP TO END OF NAME+1 

; RESET WORKPATH POINTER TO CURRENT. 

; RESET PATHNAME BUFFER POINTER. 

; BRANCH ALWAYS . . . 

; RETURN SYNTAX ERROR 



; GET POINTER TO BEGINNING OF THE 

; PREFIX. 

; IF NO PRESET PREFIX, THIS IS THE SAME AS 

; PATHBUF ADDRESS. (BRANCH ALWAYS TAKEN) 



FIRST ADJUST COUNT 
(JUST IN CASE OF LAST CHARACTER) 
(MUST OF HAD TRAILING SPACES) 

INIT COUNT FOR THIS PORTION OF THE 

PATHNAME. ALSO PRESET LENGTH TO ZERO IN 

CASE OF TRAILING SPACES. 

GET CHARACTER. 

IGNORE HIGH BIT. 

IS IT A LEADING SPACE? 

IF SO, IGNORE IT. 

IS IT GREATER THAN (UPPER CASE) A 'Z'? 
NO, MAKE SURE IT'S AN ALPHA CHARACTER 
YES, ASSUME IT'S LOWER CASE, AND UPSHIFT 
WAS IT TRULY LOWER CASE? 
NO, GIVE ERROR. 

IS IT LESS THAN 'A'? 

YES! IT'S CRAP. . . 

NO, IT'S GOOD. SAVE IT. 
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013169 
013170 
013171 
013172 
013173 
013174 
013175 
013176 
013177 
013178 
013179 
013180 
013181 
013182 
013183 
013184 
013185 
013186 
013187 
013188 
013189 
013190 
013191 
013192 
013193 
013194 
013195 
013196 
013197 
013198 
013199 
013200 
013201 
013202 
013203 
013204 
013205 
013206 
013207 
013208 
013209 
013210 
013211 
013212 
013213 
013214 
013215 
013216 
013217 
013218 



NXTCHAR 



ALFA2 



TSTDLIM 



SAVPATH 



ENDPATH 



LSTNAME 



TSTVALD 



LDA 
AND 
CMP 
BCC 
AND 
CMP 
BCS 

CMP 
BCS 
CMP 
BCS 
CMP 
BCS 
CMP 
BEQ 
CMP 
BNE 
CLC 
INY 
STA 
DEC 
BEQ 
INC 
BNE 
INC 
BNE 
PAGE 

TYA 
STA 
BCC 
CMP 
BCS 
LDY 
SEC 
ADC 
STA 
BCC 
LDA 
JSR 

BEQ 
CMP 
BCS 
INY 
LDA 
STA 
LDA 
BEQ 



(TPATH, X) 

#$7F 

#$5B 

ALFA2 

#$5F 

#$5B 

ERRSYN 

#$41 

SAVPATH 

#$3A 

TSTDLIM 

#$30 

SAVPATH 

#DLIMIT 

ENDPATH 

#$2E 

ERRSYN 



(WRKPATH) , Y 
PATHCNT 
ENDPATH 
TPATH 
NXTCHAR 
TPATH+1 
NXTCHAR 



(WRKPATH, X) 
LSTNAME 
#$10 
ERRSYN1 
#0 

WRKPATH 

WRKPATH 

BUMPATH 

#TOOLONG 

SYSDEATH 

TSTVALD 

#$10 

ERRSYN1 

#0 

(WRKPATH) , Y 
(PATHNML, X) 
ERRSYN1 



GET THE NEXT CHARACTER. 

THESE CHARACTERS MAY BE ALPHA, NUMERIC, 

OR A PERIOD - ONLY THE FIRST HAD TO BE ALPHA 

BRANCH IF LESS THAN 'Z' 

UPSHIFT LOWER CASE. 

NOW IS IT VALID? 

NOPE. 



IS 

YUP 

>9? 

YES 

NO, 

NO, 

IS 

YES 

IS 

NO, 



IT GREATER THAN 'A'? 
IT IS WORTH SAVIN. 



<0? 

IT'S VALID NUMERIC. 
IT THE DELIMITER? 

CARRY SET INDICATES MORE TO COME. 
IT A ' . ' (PERIOD) ? 
IT'S AN ERROR (#@&##@ ! ) 



BUMP NAME LENGTH 

IF ZERO, THAT WAS THE LAST CHARACTER 
(CARRY CLEAR INDICATES END OF PATH) 
BUMP POINTER TO SOURCE PATHNAME. 

HIGH ORDER, WHEN NECESSARY. 
BRANCH ALWAYS. 



GET CURRENT NAME LENGTH 
AND PUT IT IN FRONT OF NAME 
BRANCH IF THAT WAS THE LAST OF PATH 
WAS THE NAME ILLEGALLY LONG? 
YES, REPORT IT. 

; ADJUST WORK POINTER TO END OF PREVIOUS NAME. 

REPLACE OLD POINTER. 
DO NEXT NAME. 
THIS IS A NEVER ERROR! 
(NEVER RETURNS) . 



; MAKE SURE LAST ISN'T TOO LONG 

; PUT A ZERO AT END OF PROCESSED PATHNAME 



; SURE THERE IS A PATHNAME 
; IF NOT, REPORT ERROR. 
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013219 
013220 
013221 
013222 
013223 
013224 
013225 
013226 
013227 
013228 
013229 
013230 
013231 
013232 
013233 
013234 
013235 
013236 
013237 
013238 
013239 
013240 
013241 
013242 
013243 
013244 
013245 
013246 
013247 
013248 
013249 
013250 
013251 
013252 
013253 
013254 
013255 
013256 
013257 
013258 
013259 
013260 
013261 
013262 
013263 
013264 
013265 
013266 
013267 
013268 



ERRSYN1 
INCTPTH 

INCPTH1 

SETPREFX 



RESETPFX 



SETPRFX1 



SETPRFX3 
SETPRFX4 

MOVPRFX 



GETPREFX 



CLC 
RTS 

JMP 

INC 
BNE 
INC 
RTS 

PAGE 

JSR 

BCC 

TAX 

LDY 

LDA 

BEQ 

TXA 

RTS 

STA 

CLC 

RTS 

LDA 

BNE 

LDY 

CLC 

LDA 

BNE 

DEY 

TYA 

BNE 

ADC 

TAY 

EOR 

STA 

STA 

LDA 

STA 

DEY 

BPL 

CLC 

RTS 

PAGE 

CLC 
LDA 
EOR 
ADC 
CMP 



ERRSYN 

TPATH 

INCPTH1 

TPATH+1 



SETPATH 
SETPRFX1 

#0 

(C.PATH) , Y 
RESETPFX 



PFIXPTR 



PATHNML 
ERRSYN1 
WRKPATH 

(PATHNML) , Y 
SETPRFX3 



SETPRFX4 
WRKPATH 

#$FF 

PFIXPTR 

WRKPATH 
(PATHNML) , Y 
(WRKPATH) , Y 

MOVPRFX 



; INDICATE NO ERROR. 



; POINT AT NEXT CHARACTER 



CALL IS MADE HERE SO A ' NUL ' PATH MAY BE DETECTED. 
BRANCH IF PATHNAME OK 
SAVE ERROR CODE 

TEST FOR A NUL PATHNAME 
BRANCH IF PREFIX TO BE RESET. 
RESTORE ERROR CODE 



MAKE SURE NAME STARTED WITH A '/' DELIMITER. 
BRANCH IF IT DID. 

FIND THE END OF THE INPUT PREFIX 

ADD LAST LOCAL NAME LENGTH TO FIND TRUE END. 



PFIXPTR 

#$FF 

#2 

C.MAXPTH 



GET COMPLIMENT TO FIND BEGINNING ADDRESS. 
OF NEW PREFIX IN THE PREFIX BUFFER 
(PREFIX ALWAYS ENDS AT THE LAST BYTE OF BUFFER) 

MOVE IN NEW PREFIX 



AND WE'RE FINISHED! 

NO ERRORS POSIBLE FROM THIS ROUTINE. 



CALCULATE HOW BIG A BUFFER IS NEEDED TO 
PASS THE PREFIX BACK TO THE USER. 

(EVEN IF NO PREFIX, 1 BYTE IS NEEDED TO SHOW LENGTH) 
ADD 2 FOR LEADING AND ENDING "/". 
IS THERE ENOUGH SPACE IN USER'S BUFFER? 
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013269 
013270 
013271 
013272 
013273 
013274 
013275 
013276 
013277 
013278 
013279 
013280 
013281 
013282 
013283 
013284 
013285 
013286 
013287 
013288 
013289 
013290 
013291 
013292 
013293 
013294 
013295 
013296 
013297 
013298 
013299 
013300 
013301 
013302 
013303 
013304 
013305 
013306 
013307 
013308 
013309 
013310 
013311 
013312 
013313 
013314 
013315 
013316 
013317 
013318 



SENDPRFX 



SNDLMIT 
SNDPRFX1 



NULPREFX 
GOTPRFX 



FINDFCB 



SVFCBLO 



BCC 
LDA 
RTS 

LDY 
STA 
TAY 
DEY 
BEQ 
INY 
LDX 
DEX 
STX 
LDA 
STA 
LDA 
STA 
DEY 
BEQ 
LDA 
STA 
AND 
BEQ 
BNE 
TYA 
STA 
CLC 
RTS 
PAGE 

LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
BMI 
DEY 
CPY 
BCS 
TYA 
ASL 
ASL 
ASL 
ASL 
ASL 
BCC 
INC 
STA 



SENDPRFX 
#BTSERR 



#0 

(C.PATH) , Y 



NULPREFX 

PFIXPTR 

WRKPATH 
#<PATHBUF 
WRKPATH+1 
#DLIMIT 
(C.PATH) , Y 

GOTPRFX 
(WRKPATH) , Y 
(C.PATH) , Y 

#$F0 

SNDLMIT 

SNDPRFX1 

(C.PATH) , Y 



FCBADDRH 
FCBPTR+1 
#0 

FCBPTR 
FCBANKNM 
SISFCBP 
C . REFNUM 
ERRNOTBLK 

#$10 
REEFER 

A 
A 
A 
A 
A 

SVFCBLO 

FCBPTR+1 

FCBPTR 



BRANCH IF YES 

TELL USER BUFFER IS TOO SMALL. 
(CARRY IS SET TO INDICATE ERROR.) 

SAVE TOTAL LENGTH OF STRING TO BE RETURNED 



; DISCOUNT TRAILING DELIMITER. 

; BRANCH IF PREFIX IS SET TO NUL . 

; GET BEGINNING ADDRESS OF PREFIX AGAIN 



; PLACE DELIMITER BEFORE, BETWEEN, AND AFTER LOCAL NAMES. 



; BRANCH IF ALL OF PREFIX IS TRANSFERED . 
ASSUME IT'S A CHARACTER. 

NOW TEST TO SEE IF IT WAS A LOCAL LENGTH. 
BRANCH IF IT WAS. 

GO MOVE NEXT CHAR IF IT WASN'T (ALWAYS TAKEN) 
RETURN NUL STRING. 

INDICATE NO ERROR. 



INITIALIZE INDIRECT POINTER TO 

FILE CONTROL BLOCK (ALLOCATED WHEN SYSTEM 

WAS FIRST BOOTED) . 

NOTE: ALWAYS STARTS ON PAGE BOUNDARY. 
SET SISTE PAGE BYTE TOO... 

GET REQUESTED REFERENCE 

BRANCH IF IT'S NOT A BLOCK DEVICE REFERENCE 
(SHOULD BE IN THE RANGE OF 1-16 BEFORE DECREMENT) 
IS IT A VALID REFNUM? 
NO, THE USER'S SMOKIN DOPE! 
TO FIND ASSOCIATED FILE CONTROL STUFF, 
MULTIPLY ( REFNUM- 1 ) BY 32. 



BRANCH IF IT'S WITHIN FIRST HALF OF FCB 
BUMP TO SECOND HAVE (REFNUM>8) 
SAVE LOW ADDRESS OF REFERENCED FCB 
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013319 
013320 
013321 
013322 
013323 
013324 
013325 
013326 
013327 
013328 
013329 
013330 
013331 
013332 
013333 
013334 
013335 
013336 
013337 
013338 
013339 
013340 
013341 
013342 
013343 
013344 
013345 
013346 
013347 
013348 
013349 
013350 
013351 
013352 
013353 
013354 
013355 
013356 
013357 
013358 
013359 
013360 
013361 
013362 
013363 
013364 
013365 
013366 
013367 
013368 



FNDFCBUF 



GTBUFFRS 



FNDFVOL 



FNDFV . 1 
FNDFV1 



ERRNOREF 



LDA 
LDY 
CMP 
BNE 
LDY 
LDA 
LDX 
JSR 
BCS 
LDA 
ADC 
STA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
STA 
LDA 
TAX 
LDA 
CMP 
BNE 
LDY 
LDA 
CMP 
BNE 
LDA 
BEQ 
JSR 
LDA 
BEQ 
JSR 
BCC 
LDA 
RTS 

LDY 
TXA 
CLC 
ADC 
BCC 
LDA 
JSR 
PAGE 

LDA 
STA 



C . REFNUM 
#FCBREFN 

(FCBPTR) , Y 
ERRNOREF 
#FCBBUFN 

(FCBPTR) , Y 
#DATPTR 
GETBUFADR 
REEFER1 

#2 

DATPTR+1 

TINDX+1 

DATPTR 

TINDX 

SISDATP 

SSTIDXH 

#FCBDEVN 

(FCBPTR) , Y 

D. DEV 
DEVNUM 
#0 

VCB+VCBDEV, X 
(FCBPTR) , Y 

FNDFV 1 

#FCBSWAP 

VCB+VCBSWAP,X 
(FCBPTR) , Y 

FNDFV. 1 

VCB,X 

FNDFV . 1 

FVOLFOUND 

VCB+VCBSWAP,X 

REEFER1 

SWAP IN 

REEFER1 

#XIOERROR 



#FCBDEVN 



#VCBSIZE 
FNDFVOL 
#VCBERR 
SYSDEATH 



#0 

(FCBPTR) , Y 



; NOW VERIFY THAT FILE IS OPEN. 

SHOULD BE EQUAL! 
BRANCH IF THEY'RE NOT 
IT'S A LEGAL FILE, NOW SET UP 
INDIRECT POINTERS TO DATA 
(AND INDEX) BUFFER (S) IN ZERO PAGE 
GET BUFFER ADDRESS UNLESS 
BOB HAS BEEN SMOKIN DOPE . . . 

(ASSUME AN INDEX BLOCK BUFFER IS ALSO PRESENT) 



MAKE SURE DEVICE 

NUMBER TEMPS MATCH 

CURRENT FILE'S DEVICE 

LOOK AT ALL VOLUMES LOGGED IN 

GET VOLUMES DEVICE NUMBER 
HVE WE FOUND A MATCH. 

SWAP BYTES 
MISMATCH 

MEANS FILE BELONGS 

TO ANOTHER VOLUME 

IS THIS AN OPEN DEVICE? 

NO, TRY ANOTHER VOLUME 

YES, SAVE VCB ADDRESS 

SWAPPED? 

NO, RETURN CALMLY TO USER 
YES, SWAP ME IN 
RETURN WITHOUT ERROR 

USER REFUSED TO MOUNT PROPER VOLUME 



; RELOAD Y WITH DEVICE INDEX 



LOOP UNTIL FOUND 

OTHERWISE DIE A SYSTEM DEATH! 



DROP A ZERO INTO THIS FCB TO 
SHOW FREE FCB 
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013369 










013370 


REEFER 


LDA 


#BADREFNUM 


TELL USER THAT REQUESTED REFNUM 


013371 




SEC 




IS ILLEGAL (OUT OF RANGE) FOR THIS CALL. 


013372 


REEFER1 


RTS 






013373 










013374 


ERRNOTBLK 


LDA 


#NOTBLKDEV 


TELL USER THAT SPECIFIED DEVICE IS NOT A BLOCK DEVICE 


013375 




SEC 






013376 




RTS 






013377 










013378 


SVCBADR 


EQU 


* 




013379 


FVOLFOUND 


STX 


VCBPTR 




013380 




LDA 


#VCB/256 




013381 




STA 


VCBPTR+1 




013382 




CLC 




INDICATE LEGAL REFNUM 


013383 




RTS 






013384 




PAGE 






013385 


* NAME 


GETDNUM 






013386 


* FUNCTION 


GET DEVICE NUMBER 




013387 


* INPUT 


DVNAMP SETUP 






013388 


* OUTPUT 


DEVNUM IN 'SCRTCH' 




013389 




' BPL ' IF NOT 


BLOCK DEV 




013390 


* 


'BCS' IF NO DEVICE 




013391 


* VOLATILE 


ALL REGS 






013392 


* 








013393 


GETDNUM 


EQU 






013394 




LDA 


#>SCRTCH+1 


SET UP POINTER TO SCRATCH AREA 


013395 




STA 


DVDNUM 


TO RECIEVE DEVICE NUMBER. 


013396 




LDA 


#SCRHIGH 




013397 




STA 


DVDNUM+1 




013398 




LDA 


#0 


PLACE A ZERO IN BANK BYTE SINCE 


013399 




STA 


SISTER+DVDNUM+1 


IT'S NOT IN A BANK. 


013400 




STA 


VCBPTR+1 




013401 




LDA 


#4 


THE ' GET . DNUM ' COMMAND. 


013402 




STA 


DHPCMD 




013403 




JSR 


RPEATIO0 


CALL BOB FOR THE INFO. 


013404 




RTS 




RETURN WITH DEVMGR CCS 


013405 




PAGE 






013406 










013407 


* NAME 


SRCHDEV 






013408 


* FUNCTION 


SEARCH FOR A 


VOLUME 




013409 


* 








013410 


SRCHDEV 


EQU 


* 




013411 




JSR 


GETDNUM 


GET DEVNUM 


013412 




BCS 


VOLERR1 


BRANCH IF ANY ERROR OTHER THAN NOTBLOCKDEV 


013413 




BPL 


ERRNOTBLK 


BRANCH IF NOT A BLOCK DEVICE 


013414 




LDA 


#0 


NOW SEARCH FOR A VOL WITH THE 






STA 


NFOPEN 


± In ± 1 1 Hil v itr V rUlWl ILK 


013416 


VOLOOK 


TAX 




SAME DEVNUM AS SCRTCH 


013417 




LDA 


VCB+VCBSTAT,X 


ANY FILES OPEN? 


013418 




BNE 


VLOOK00 


BRANCH IF SOME FILE OPEN 
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013419 




STX 


NFOPEN 




ELSE SAVE THE VCB ENTRY PTR 




013420 


VLOOK00 


EQU 










013421 




LDA 


VCB+VCBSWAP,X 




VOLUME SWAPPED OUT? 




013422 




BNE 


VNOTEQ 




YES, CANT BE THE ACTIVE VOL 




013423 




LDA 


VCB+VCBDEV, X 








013424 




EOR 


SCRTCH+1 








013425 




BEQ 


VLOOK0 




BRANCH IF MATCH. 




013426 


VNOTEQ 


LDA 


VCB,X 




IS THIS A FREE VCB? 




013427 




BNE 


VLOOK2 




BRANCH IF NOT FREE, OTHEWISE TAKE NEXT 


BRANCH. 


013428 


VLOOK0 


EOR 


VCB,X 




TEST FOR A VOLUME NAME LENGTH 




013429 




BEQ 


VLOOK1 




BRANCH IF VCB FREE 




013430 




JSR 


SVCBADR 




SAVE CURRENT ADDRESS OF VCB. 




013431 




LDA 


VCB+VCBSTAT,X 




TEST FOR ANY OPEN FILES. 




013432 




BPL 


VLOOK3 




LOG THE VOLUME IN JUST TO BE SURE 




013433 




LDA 


SCRTCH+1 




SET UP 




013434 




STA 


DEVNUM 




DEVICE NUMBER ARGUMENT 




013435 




TXA 






SAVE PTR TO VCB 




013436 




PHA 






ON STACK 




013437 




JSR 


VERFYVOL 




COMPARES VCBPTR TO DEVNUM CONTENTS 




013438 




BCC 


VNOSWIT 








013439 




CMP 


#VNFERR 




SEE IF NOTHING IN DRIVE 




013440 




BEQ 


VLOOK7 




BRANCH IF NOTHING IN DRIVE 




013441 




JSR 


TSTSOS 




IS THE VOLUME AN UNRECOGNIZED SOS OR (UCSD OR DOS)? 


013442 




BCS 


KNOTSOS 




DEFINITELY NOT SOS FORMAT 




013443 




LDX 


#0 




START VCB SCAN AT BEGINNING 




013444 




JSR 


SNSWIT1 




FIND A FREE VCB AND LOG IN THE NEW GUY 




013445 




BCS 


VNOSWIT1 




CAN'T LOG IN NEW GUY — KEEP OLD 




013446 




PLA 










013447 




LDX 


VCBPTR 




PASS BACK X AS NEW VCB 




013448 




RTS 










013449 














013450 


NFOPEN 


DS 


1 




TEMP VCB PTR FOR VCB W/ NO FILES OPEN 




013451 














013452 


VNOSWIT 


CLC 






RETURN IT TO USER 




013453 




PLA 






REMEMBER OLD VCB PTR 




013454 




TAX 






AND PASS BACK TO USER 




013455 




RTS 










013456 


; RETURN 


TO CALLER X= 


^POINTER TO VCB. 








013457 














013458 


VOLERR1 


SEC 






RETURN SOME VOLUME ERROR 




013459 




RTS 










013460 


VNOSWIT1 


CMP 


#DUPVOL 








013461 




BNE 


VLOOK7 




REPORT OTHER ERROR FROM LOGGING IN NEW 


VOL AS VNF 


013462 




TAX 










013463 




PLA 




r 


MAKE STACK CORRECT 




013464 




TXA 




r 


RESTORE ERROR CODE 




013465 




SEC 










013466 




RTS 




r 


IF DUPLICATE VOLUME ERROR, RETURN FACT 


TO USER 


013467 


KNOTSOS 


PLA 




r 


MAKE STACK CORRECT 




013468 




LDA 


#NOTSOS 


r 


FOR THE PASCAL FOLK 
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013469 
013470 
013471 
013472 
013473 
013474 
013475 
013476 
013477 
013478 
013479 
013480 
013481 
013482 
013483 
013484 
013485 
013486 
013487 
013488 
013489 
013490 
013491 
013492 
013493 
013494 
013495 
013496 
013497 
013498 
013499 
013500 
013501 
013502 
013503 
013504 
013505 
013506 
013507 
013508 
013509 
013510 
013511 
013512 
013513 
013514 
013515 
013516 
013517 
013518 



VLOOK7 



VLOOK1 
VLOOK2 



VLOOK3 



NOVOLM 
RTVOLNAM 

RTV1 



RTS 

PLA 
JMP 

JSR 
TXA 
CLC 
ADC 
BCC 
LDX 
BNE 
LDX 
JSR 
LDA 
BEQ 
LDA 
STA 
LDA 
STA 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDX 
STX 
STA 
JSR 
BCS 
LDX 
LDA 
BEQ 
RTS 
LDA 
SEC 
TAX 
LDA 
BEQ 
LDX 
TXA 
RTS 

CHN 



NOVOLM 
SVCBADR 



#VCBSIZE 

VOLOOK 

VCBPTR+1 

VLOOK3 

NFOPEN 

SVCBADR 

VCBPTR+1 

NOVOLM 

SCRTCH+1 

DEVNUM 

#1 

SCRTCH 

TOTDEVS 

#<VCB 

VCBPTR+1 

PATHNMH 

#0 

SISTER+PATHNMH 

VCBPTR 

PATHNML 

VCB,X 

FREEVCB 

RTVOLNAM 

VCBPTR 

VCB,X 

NOVOLM 



#VNFERR 



DUPLFLAG 

RTV1 

#DUPVOL 



VOLUME, 4, 1 



; NOTSOS MEANS UCSD OR DOS OR BAD SOS VOLUME 

; THROW AWAY OLD VCB PTR 

; AND REPORT VOLUME NOT FOUND 

; SAVE ADDRESS OF FREE VCB. 

; BUMP TO NEXT VOLUME ENTRY. 



BRANCH IF MORE TO CHECK. 
FREE VCB YET FOUND? 
BRANCH IF YES 
SAVE POSSIBLE FREE VCB 
AND SAVE PTR PERMANENTLY 
WAS A FREE VCB FOUND? 

BRANCH IF VOLUME CAN'T BE LOGGED IN. 

GET DEVICE NUMBER 

SAVE DEVICE NUMBER. 

FAKE OUT 'LOKVOL' 

TO THINK TO LOOK ONLY ONCE. 



; (TO MAKE HARMLESS) 



FORCE CURRENT VOLUME OFF LINE, THEN LOG WHATS THERE. 
GO READ ROOT DIRECTORY. 
RETURN ANY ERRORS 
MAKE SURE VOLUME WAS LOGGED IN 

RETURN ERROR 
ELSE RETURN NORMALLY 
TELL USER 'NO VOLUME' 

; SAVE REAL ERROR WHILE DUPLICATE IS CHECKED 

; BRANCH IF NOT DUPLICATE 

; RECALL ERROR 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: PATH 

************************************************************************* 
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013519 
013520 



Apple / // Sophisticated Operating System (SOS) 1.3 Source Code Listing » PTC 8/ 2001 » Page 293 of 391 



Apple / / / Computer I nformation 



013521 
013522 
013523 
013524 
013525 
013526 
013527 
013528 
013529 
013530 
013531 
013532 
013533 
013534 
013535 
013536 
013537 
013538 
013539 
013540 
013541 
013542 
013543 
013544 
013545 
013546 
013547 
013548 
013549 
013550 
013551 
013552 
013553 
013554 
013555 
013556 



DOCUMENT : SOS1 . 3 . 3of 5 . THREE : SOS . PRINT . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: PRINT 

************************************************************************* 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

'SOS 1.1 BLOCK FILE MANAGER' L 



* 01-FEB-82 



ZZORG 



(C) 



SBTL 
REL 

IBUFSIZ 1 
SBUFSIZ 40 
INCLUDE SOSORG, 6, 1, 254 

ORG ORGBFM 
EQU * 
REP 60 

COPYRIGHT 1981 BY APPLE COMPUTER INC 
ALL RIGHTS RESERVED 



BITMAPS $B800-$BBFF 



REP 


60 




MSB 


OFF 




LST 


VSYM 




CHN 


EQUATES, 4, 1 




CHN 


ALLOC 




INCLUDE 


POSN/OPEN 




INCLUDE 


READ /WRITE, 2, 


, 4 


INCLUDE 


CLOSE/EOF, 2, , 4 


INCLUDE 


DESTROY, 2, , 4 




INCLUDE 


SWAPOUT/IN, 2, 


, 4 



********************************************** 

* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: PRINT 

************************************************************************* 
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013557 
013558 
013559 
013560 
013561 
013562 
013563 
013564 
013565 
013566 
013567 
013568 
013569 
013570 
013571 
013572 
013573 
013574 
013575 
013576 
013577 
013578 
013579 
013580 
013581 
013582 
013583 
013584 
013585 
013586 
013587 
013588 
013589 
013590 
013591 
013592 
013593 
013594 
013595 
013596 
013597 
013598 
013599 
013600 
013601 
013602 
013603 
013604 
013605 



DOCUMENT : SOS1 . 3 . 3of 5 . THREE : SOS . UMGR . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: UMGR. SRC 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

"SOS 1.1 UTILITY MANAGER" 



SOSORG, 6, 1, 254 
ORGUMGR 



SBTL 
REL 

INCLUDE 
ORG 

ZZORG EQU * 

MSB OFF 
REP 60 

* COPYRIGHT (C) APPLE COMPUTER INC. 1980 

* ALL RIGHTS RESERVED 
REP 60 

* UTILITY MANAGER 

* THIS MODULE HANDLES THE FOLLOWING SOS CALLS: 

* SET. FENCE, GET. FENCE 

* SET. TIME, GET. TIME 

* JOYSTICK, COLDSTRT 

* IN ADDITION, IT CONTAINS THE ROUITNE DATETIME WHICH 

* PROVIDES THE DATE AND TIME FOR THE BLOCK FILE MANAGER. 



U . TPARMX 
U.REQCODE 



REP 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

ENTRY 

EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 

EQU 
EQU 



60 

UMGR 
DATETIME 
BCDBIN 
COLDSTRT 

PCLOCK 

SYSBANK 

CEVPRI 

SYSERR 

BADSCNUM 

BADJMODE 

XNORESRC 

ALLOCS IR 

DEALCSIR 

$C0 

U . TPARMX 
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013606 


PRIORITY 


EQU 


U.TPARMX+1 


013607 


J . MODE 


EQU 


U.TPARMX+1 


013608 


J . VALUE 


EQU 


U . TPARMX+2 


013609 


TIME 


EQU 


U.TPARMX+1 


013610 


MEMORY 


EQU 


U.TPARMX+1 


013611 








013612 


BITON2 


EQU 


$04 


013613 


BITON5 


EQU 


$20 


013614 


BITON6 


EQU 


$40 


013615 


BITON7 


EQU 


$80 


013616 


BITOFF5 


EQU 


$DF 


013617 








013618 


Z.REG 


EQU 


$FFD0 


013619 


E.REG 


EQU 


$FFDF 


013620 


B.REG 


EQU 


$FFEF 


013621 




PAGE 




013622 




REP 


35 


013623 


* 






013624 


* UTILITY SWITCH 




013625 








013626 




REP 


35 


013627 


* 






013628 








013629 


UMGR 


EQU 




013630 




LDA 


E.REG 


013631 




ORA 


#BITON6 


013632 




STA 


E.REG 


013633 








013634 




LDA 


U . REQCODE 


013635 




CMP 


#USWCNT 


013636 




BCS 


UMGRERR 


013637 




ASL 


A 


013638 




TAX 




013639 




LDA 


USWTBL+1,X 


013640 




PHA 




013641 




LDA 


USWTBL, X 


013642 




PHA 




013643 




RTS 




013644 








013645 


UMGRERR 


LDA 


#>BADSCNUM 


013646 




JSR 


SYSERR 


013647 


* 






013648 


* UTILITY SWITCH TABLE 




013649 








013650 


USWTBL 


EQU 




013651 




DW 


SET. FENCE- 1 


013652 




DW 


GET. FENCE- 1 


013653 




DW 


SET.TIME-1 


013654 




DW 


GET . TIME-1 


013655 




DW 


JOYSTICK-1 



; SELECT $C000 I/O SPACE 
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013656 




DW 


COLDSTRT-1 


013657 


USWCNT EQU 


*-USWTBL/2 


013658 




PAGE 




013659 




REP 


60 


013660 








013661 


* 


SET. FENCE ( IN . PRIORITY) 


SYSTEM CALL 


013662 








013663 




GET. FENCE (OUT. PRIORITY) SYSTEM CALL 


013664 


* 






013665 




THESE TWO CALLS ALLOW 


THE CALLER TO EITHER RETRIEVE OR SET 


013666 




THE CURRENT SYSTEM EVENT PRIORITY THRESHOLD. BY RAISING 


013667 




THE FENCE, A USER MAY 


INHIBIT THE EXECUTION OF EVENTS WHOSE 


013668 


* 


PRIORITY IS EQUAL TO OR LESS THAN THE VALUE OF THE SYSTEM 


013669 




FENCE . 




013670 








013671 




REP 


60 


013672 


* 






013673 








013674 


SET . FENCE EQU 


* 


013675 




LDA 


PRIORITY 


013676 




STA 


CEVPRI 


013677 




RTS 


; NORMAL EXIT 


013678 


* 






013679 








013680 


GET . FENCE EQU 




013681 




LDA 


CEVPRI 


013682 




LDY 


#0 


013683 




STA 


(PRIORITY) , Y 


013684 




RTS 


; NORMAL EXIT 


013685 




PAGE 




013686 




REP 


60 


013687 








013688 




SET. TIME (IN. TIME) 




013689 


* 


GET. TIME (OUT. TIME) 




013690 








013691 


* 


THESE SYSTEM CALLS ALLOW THE USER TO SET AND READ THE 


013692 




SYSTEM'S CLOCK. THE 


TIME IS EXPRESSED AS AN EIGHTEEN 


013693 




DIGIT ASCII STRING IN THE FORM " YYYYMMDDWHHMMSSMMM" . 


013694 


* 






013695 


* 


YYYY YEAR [1900-1999] 


013696 


* 


MM MONTH 


[01-12] 


013697 


* 


DD DAY 


[01-31] 


013698 




W WEEKDAY 


[1-7] 1 => SUNDAY 


013699 




HH HOUR 


[00-23] 


013700 


* 


MM MINUTE 


[00-59] 


013701 


* 


SS SECOND 


[00-59] 


013702 


* 


MMM MILLISECOND [000-999] 


013703 








013704 


* 


THE CLOCK CHIP AUTOMATICALLY MAINTAINS THE TIME AND 


013705 




DATE FROM MILLISECONDS TO MONTHS. IT DOES NOT MAINTAIN 
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013706 
013707 
013708 
013709 
013710 
013711 
013712 
013713 
013714 
013715 
013716 
013717 
013718 
013719 
013720 
013721 
013722 
013723 
013724 
013725 
013726 
013727 
013728 
013729 
013730 
013731 
013732 
013733 
013734 
013735 
013736 
013737 
013738 
013739 
013740 
013741 
013742 
013743 
013744 
013745 
013746 
013747 
013748 
013749 
013750 
013751 
013752 
013753 
013754 
013755 



THE YEAR, HOWEVER, NOR DOES IT RECOGNIZE 2 9 FEBRUARY 
IN LEAP YEARS. THE SOFTWARE SETS THE DAY AND MONTH 
LATCHES TO THE DON'T CARE STATE AND USES THE REMAINING 
EIGHT BITS TO HOLD A TWO DIGIT BCD YEAR. THE CLOCK 
MUST BE RESET AT THE BEGINNING OF EACH YEAR AND ON 
2 9 FEBRUARY IN LEAP YEARS. 

SET. TIME ASSUMES THAT THE DATE IS VALID AND CORRECT. 
THE CENTURY IS IGNORED AND MILLISECONDS ARE ALWAYS SET 
TO ZERO . GET. TIME ALWAYS SETS THE CENTURY TO 19. 



REP 



TEMPORARY ZERO PAGE 



PCLK 
WKDAY 
CKSUM 
CLKTEMP 



EQU 
EQU 
EQU 
EQU 



CLOCK LOCAL DATA 



PCLOCK 
RETRY 



DS 
DS 



60 



$D0 
$D2 
$D3 
$18D4 



$0A 
$01 



; POINTER TO SAVED PCLOCK 



; THROUGH $18DD - ABSOLUTE 



;PSEUDO CLOCK REGISTERS 



CLOCK HARDWARE ADDRESSES 



CLOCK 

CSEC 

CMIN 

CMON 

LDAY 

CRESET 

STATUS 

WKMON 



SET. TIME 



STIM010 
STIM011 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

DFB 
DFB 



EQU 
LDX 
LDY 
LDA 
BNE 

INX 
LDA 
AND 
STA 



$C070 

$02 

$03 

$07 

$0E 

$12 

$14 

8, 11, 11, 7, 9, 12 
7, 10, 13, 8, 11, 13 



#$00 
#$12 
#'0' 
STIM011 



(TIME) , Y 
#$0F 

PCLOCK, X 



CONVERT TIME FROM 
ASCII TO BCD AND 
TRANSFER TO PCLOCK 
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013756 
013757 
013758 
013759 
013760 
013761 
013762 
013763 
013764 
013765 
013766 
013767 
013768 
013769 
013770 
013771 
013772 
013773 
013774 
013775 
013776 
013777 
013778 
013779 
013780 
013781 
013782 
013783 
013784 
013785 
013786 
013787 
013788 
013789 
013790 
013791 
013792 
013793 
013794 
013795 
013796 
013797 
013798 
013799 
013800 
013801 
013802 
013803 
013804 
013805 



STIM015 



STIM016 



DEY 
CPY 
BEQ 
LDA 
ASL 
ASL 
ASL 
ASL 
ORA 
STA 
DEY 
BPL 

LDA 
JSR 
TAX 
LDA 
JSR 
TAY 
LSR 
LSR 
STA 
TYA 
AND 
BNE 
CPX 
BCS 
DEY 
CLC 
TYA 
ADC 
ADC 
STA 
LDA 
JSR 
CLC 
ADC 
SEC 
SBC 
CMP 
BCS 
STA 

LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 



#$07 
STIM010 
(TIME) , Y 

A 
A 
A 
A 

PCLOCK, X 
PCLOCK, X 

STIM010 

PCLOCK+7 
BCDBIN 

PCLOCK+8 
BCDBIN 

A 
A 

WKDAY 

#$03 

STIM015 

#3 

STIM015 



WKDAY 

WKMON-l,X 

WKDAY 

PCLOCK+6 

BCDBIN 

WKDAY 

#7 
#8 

STIM016 
PCLOCK+5 

#$D0 

PCLK 

#$FF 

PCLK+1 

#$8F 

$1401+PCLK 
#$A5 



/CALCULATE WEEKDAY 



<SRS 82.162> 



; POINT (PCLK) TO 8F : FFD0 
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013806 
013807 

013808 * 

013809 STIM020 
013810 

013811 
013812 
013813 
013814 
013815 
013816 
013817 * 
013818 
013819 
013820 
013821 
013822 
013823 
013824 * 
013825 
013826 
013827 
013828 
013829 * 
013830 
013831 
013832 
013833 
013834 
013835 * 
013836 
013837 
013838 
013839 
013840 
013841 
013842 
013843 
013844 
013845 
013846 
013847 
013848 
013849 
013850 
013851 
013852 
013853 
013854 
013855 



STIM030 



STIM040 



STA 
LDY 

LDA 
STA 
EOR 
STA 
INY 
CPY 
BCC 
STA 

LDA 
PHA 
LDA 
PHA 
OPA 
STA 

LDY 
STY 
LDA 
BMI 

LDX 
STX 
LDA 
STA 
STA 

LDX 
INX 
PHP 
SEI 
STX 
LDA 
LDA 
STA 
LDA 
STY 
LDA 
BNE 
PLP 
CPX 
BCC 

LDX 
STX 
LDA 
OPA 



CKSUM 
#$00 

PCLOCK, Y 
(PCLK) , Y 
CKSUM 
CKSUM 

#$0A 
STIM020 
(PCLK) , Y 

Z.REG 

E.REG 

#BITON7 
E.REG 

#STATUS 
Z.REG 
CLOCK 
STIM050 

#CRESET 

Z.REG 

#$FF 

CLOCK 

CLOCK 

#CSEC-1 



Z.REG 

CLOCK 

PCLOCK, X 

CLOCK 

CLOCK 

Z.REG 

CLOCK 

STIM040 

#CMON 
STIM030 

#LDAY 
Z.REG 

PCLOCK+8 
#$CC 



; INITIALIZE CHECKSUM 



;SAVE PCLOCK 
; BEHIND 6522 



;SAVE CHECKSUM 



;SAVE ZERO PAGE 

;SAVE ENVIRONMENT 
; AND SET 1 MHZ 



;DOES CLOCK EXIST? 
; NO 



; RESET ALL COUNTERS 



; DISABLE INTERRUPTS 

; (DUMMY READ FOR STATUS) 

;SET CLOCK COUNTER 

; (DUMMY READ FOR STATUS) 

; CHECK STATUS BIT 

; RESTORE INTERRUPTS 



; STUFF YEAR INTO DAY 
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013856 




STA 


CLOCK 


; AND MONTH LATCHES 


013857 




INC 


Z.REG 




013858 




LDA 


PCLOCK+8 




013859 




LSR 


A 




013860 




LSR 


A 




013861 




ORA 


#$CC 




013862 




STA 


CLOCK 




013863 


* 








013864 


STIM050 


PLA 






013865 




STA 


E.REG 


/RESTORE ENVIRONMENT 


013866 




PLA 






013867 




STA 


Z.REG 


; AND ZERO PAGE 


013868 




RTS 






013869 




PAGE 






013870 


GET. TIME 


EQU 






013871 




LDA 


Z.REG 


;SAVE ZERO PAGE 


013872 




PHA 






013873 




LDA 


E.REG 


;SAVE ENVIRONMENT 


013874 




PHA 






013875 




ORA 


#BITON7 




013876 




STA 


E.REG 


;SET 1 MHZ 


013877 


* 








013878 




LDY 


#STATUS 




013879 




STY 


Z.REG 




013880 




LDA 


CLOCK 


;DOES CLOCK EXIST? 


013881 




BMI 


GTIM050 


; NO 


013882 










013883 




LDA 


#$10 


; ALLOW $10 RETRYS 


013884 




STA 


RETRY 




013885 


GTIM010 


LDX 


#CMON+l 




013886 




PHP 






013887 




SEI 




; DISABLE INTERRUPTS 


013888 


* 








013889 


GTIM020 


DEX 






013890 




BMI 


GTIM030 


; ALL DONE 


013891 




STX 


Z.REG 




013892 




LDA 


CLOCK 


;COPY CLOCK COUNTERS 


013893 




STA 


CLKTEMP, X 


; TO TEMP REGISTERS 


013894 




STY 


Z.REG 




013895 




LDA 


CLOCK 


; CHECK STATUS BIT 


013896 




BEQ 


GTIM020 




013897 










013898 




PLP 




; CLOCK READ ERROR 


013899 




DEC 


RETRY 




013900 




BPL 


GTIM010 


; TRY AGAIN 


013901 




BMI 


GTIM050 




013902 










013903 


GTIM030 


PLP 




; RESTORE INTERRUPTS 


013904 




LDX 


#LDAY+1 




013905 




STX 


Z.REG 
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013906 




LDA 


CLOCK 


; READ YEAR FROM DAY 


013907 




SEC 




; AND MONTH LATCHES 


013908 




ROL 


A 




013909 




ROL 


A 




013910 




DEC 


Z.REG 




013911 




AND 


CLOCK 




013912 




STA 


CLKTEMP+8 




013913 


* 








013914 




LDX 


#$09 




013915 


GTIM040 


LDA 


CLKTEMP, X 


;COPY CLOCK DATA 


013916 




STA 


PCLOCK, X 


; TO PSEUDO CLOCK 


013917 




DEX 






013918 




BPL 


GTIM040 




013919 










013920 


GTIM050 


LDA 


#$19 




013921 




STA 


PCLOCK+9 




013922 


* 








013923 




PLA 






013924 




STA 


E.REG 


; RESTORE ENVIRONMENT 


013925 




PLA 






013926 




STA 


Z.REG 


; AND ZERO PAGE 


013927 


* 








013928 




LDY 


#$11 




013929 




LDX 


#$00 




013930 


GTIM060 


LDA 


PCLOCK, X 


; GET MOST SIGNIFICANT 


013931 




LSR 


A 


; BCD DIGIT 


013932 




LSR 


A 




013933 




LSR 


A 




013934 




LSR 


A 




013935 




OPA 


#$30 


; CONVERT TO ASCII 


013936 




STA 


(TIME) , Y 




013937 




INX 






013938 




DEY 






013939 




BMI 


GTIM080 




013940 


GTIM070 


LDA 


PCLOCK, X 


; GET LEAST SIGNIFICANT 


013941 




AND 


#$0F 


; BCD DIGIT 


013942 




OPA 


#$30 


; CONVERT TO ASCII 


013943 




STA 


(TIME) , Y 




013944 




DEY 






013945 




CPY 


#$07 




013946 




BNE 


GTIM0 60 




013947 




INX 






013948 




BNE 


GTIM070 




013949 


GTIM080 


RTS 






013950 




PAGE 






013951 




REP 


60 




013952 










013953 


* SUBROUTINE DATETIME 






013954 










013955 


* THIS 


SUBROUTINE READS 


THE CLOCK AND 


WRITES A DATE/TIME 
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013956 
013957 
013958 
013959 
013960 
013961 
013962 
013963 
013964 
013965 
013966 
013967 
013968 
013969 
013970 
013971 
013972 
013973 
013974 
013975 
013976 
013977 
013978 
013979 
013980 
013981 
013982 
013983 
013984 
013985 
013986 
013987 
013988 
013989 
013990 
013991 
013992 
013993 
013994 
013995 
013996 
013997 
013998 
013999 
014000 
014001 
014002 
014003 
014004 
014005 



STAMP TO A FOUR BYTE BUFFER ON THE CALLER'S ZERO PAGE; 
THE DATA FORMAT IS SHOWN BELOW. ON ENTRY, X MUST POINT 
TO THE BUFFER. ON EXIT, ALL REGISTERS ARE CLOBBERED. 
IF AN ERROR OCCURS, CARRY IS SET AND THE BUFFER IS 
SET TO ZERO; OTHERWISE, CARRY IS CLEARED. 



BITS : 
X+0 
X+l 
X+2 
X+3 



7 6 
M M 
Y Y 



5 4 3 2 1 
M D D D D 
Y y Y Y Y 
MINUTE 
HOUR - - 

REP 



TEMPORARY STORAGE 



OFFSET 

ERRCNT 

CLKREGS 

MIN 

HOUR 

DAY 

MON 

YEAR 



DATETIME 



DT010 



DT020 



DFB 

DFB 

DS 

EQU 

EQU 

EQU 

EQU 

EQU 



EQU 
STX 
LDA 
PHA 
LDA 
PHA 
ORA 
STA 

LDY 
STY 
LDA 
BMI 

LDA 
STA 
LDX 
PHP 
SEI 

DEX 
CPX 
BCC 
STX 



60 






5 

CLKREGS+0 
CLKREGS+1 
CLKREGS+3 
CLKREGS+4 
CLKREGS+2 



OFFSET 
Z.REG 

E.REG 

#BITON7+BITON6 
E.REG 

tSTATUS 
Z.REG 
CLOCK 
DT030 



ERRCNT 
#CMON+l 



#CMIN 
DT050 
Z.REG 



;SAVE ZERO PAGE 

AND ENVIRONMENT 
SET 1 MHZ AND 

ENABLE I/O SPACE 



;DOES CLOCK EXIST? 
; NO 



; ALLOW 8 RETRYS 



; DISABLE INTERRUPTS 
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014006 




LDA 


CLOCK 


; READ THE CLOCK 


014007 




STA 


CLKREGS-CMIN, X 




014008 




STY 


Z.REG 




014009 




LDA 


CLOCK 


; CHECK STATUS 


014010 




BEQ 


DT020 




014011 










014012 




PLP 




; CLOCK READ ERROR 


014013 




DEC 


ERRCNT 




014014 




BPL 


DT010 




014015 


DT030 


PLA 






014016 




STA 


E.REG 


; RESTORE ENVIRONMENT 


014017 




PLA 






014018 




STA 


Z.REG 


; AND ZERO PAGE 


014019 




LDX 


#CMON-CMIN 




014020 


DT040 


LDA 


PCLOCK+CMIN, X 




014021 




STA 


CLKREGS, X 




014022 




DEX 






014023 




BPL 


DT040 




014024 




LDX 


PCLOCK+8 




014025 




JMP 


DT060 




014026 


* 








014027 


DT050 


PLP 




; READ YEAR FROM LATCHES 


014028 




LDA 


#LDAY+1 




014029 




STA 


Z.REG 




014030 




LDA 


CLOCK 




014031 




SEC 






014032 




ROL 


A 




014033 




ROL 


A 




014034 




DEC 


Z.REG 




014035 




AND 


CLOCK 




014036 




TAX 






014037 


* 








014038 




PLA 






014039 




STA 


E.REG 


; RESTORE ENVIRONMENT 


014040 




PLA 






014041 




STA 


Z.REG 


; AND ZERO PAGE 


014042 










014043 


DT060 


TXA 






014044 




JSR 


BCDBIN 


; CONVERT YEAR TO BINARY 


014045 




STA 


YEAR 




014046 




LDA 


MON 


; CONVERT MONTH AND DAY 


014047 




JSR 


BCDBIN 


; TO BINARY THEN 


014048 




ASL 


A 


; COMBINE WITH YEAR 


014049 




ASL 


A 


; TO FORM DATE STAMP 


014050 




ASL 


A 




014051 




ASL 


A 




014052 




ASL 


A 




014053 




STA 


MON 




014054 




ROL 


YEAR 




014055 




LDA 


DAY 
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014056 


JSR 




BCDBIN 








014057 


ORA 




MON 








014058 


LDX 




OFFSET 








014059 


STA 




o,x 








014060 


LDA 




YEAR 








014061 


STA 




1,X 








014062 


LDA 




MIN 






; CONVERT MINUTE 


014063 


JSR 




BCDBIN 








014064 


STA 




2,X 








014065 


LDA 




HOUR 






; CONVERT HOUR 


014066 


JSR 




BCDBIN 








014067 


STA 




3,X 








014068 


CLC 












014069 


RTS 












014070 


PAGE 












014071 


REP 




60 








014072 


* 












014073 


* SUBROUTINE BCDBIN 












014074 














014075 


* THIS SUBROUTINE CONVERTS A BYTE 


FROM BCD 


TO BINARY. 


014076 


* THE BYTE IS PASSED 


AND 


RETURNED 


IN A. 


THERE IS NO 


014077 


* ERROR CHECKING. Y 


IS 


DESTROYED 


AND X 


IS 


UNCHANGED . 


014078 














014079 


REP 




60 








014080 


* 












014081 


BCDBIN EQU 




★ 








014082 


PHA 












014083 


LSR 




A 






; ISOLATE TENS DIGIT FOR 


014084 


LSR 




A 






INDEXING THE TABLE 


014085 


LSR 




A 








014086 


LSR 




A 








014087 


TAY 












014088 


PLA 












014089 


AND 




#$0F 






; GET UNITS 


014090 


CLC 












014091 


ADC 




TENS, Y 






; ADD IN TENS 


014092 


RTS 












014093 














014094 


TENS DFB 




00,10,20,30,40 


, 5C 


, 60, 70, 80, 90 


014095 


PAGE 












014096 


REP 




60 








014097 


* 












014098 


* SOS CALL $64 — JOYSTICK INPUT 








014099 


* JOYSTICK (IN. J. MODE; 


OUT. J. VALUE) 






014100 














014101 


REP 




60 








014102 














014103 














014104 


AD . INPUT EQU 




$D0 








014105 


AD . TEMP EQU 




$D1 
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014106 










014107 


PA.SWO 


EQU 


$C061 


PORT A, SWITCH 


014108 


PA.SW1 


EQU 


$C063 


PORT A, SWITCH 1 


014109 


PB.SWO 


EQU 


$C062 


PORT B, SWITCH 


014110 


PB.SW1 


EQU 


$C060 


PORT B, SWITCH 1 


014111 










014112 


AD.SEL0 


EQU 


$C058 ;A/D SELECT CONTROLS 


014113 


AD.SEL1 


EQU 


$C05E 




014114 


AD.SEL2 


EQU 


$C05A 




014115 


AD . CHRG 


EQU 


$C05C 


A/D RAMP CHARGE / 


014116 


AD . STRT 


EQU 


$C05D 


START TIMEOUT 


014117 


AD . FLAG 


EQU 


$C066 


A/D TIMEOUT FLAG 


014118 










014119 


TCHARGE 


EQU 


500 


CHARGE TIME FOR A/D 


014120 


TOFFSET 


EQU 


360 


OFFSET TIME TO A/D WINDOW 


014121 










014122 


ANALOG 


EQU 


$F4A8 


ROM ENTRY FOR ANALOG INPUT 


014123 


ANLOG1 


EQU 


$F4AB 


INTERRUPT REENTRY 


014124 


D.T2 


EQU 


$FFD8 


TIMER 


014125 


D.ACR 


EQU 


$FFDB 


AUXILIARY CONTROL REGISTER 


014126 


D.IFR 


EQU 


$FFDD 


INTERRUPT FLAG REGISTER 


014127 










014128 


ENSEL 


EQU 


$C0DC 




014129 


ENSIO 


EQU 


$C0DE 




014130 


* 








014131 










014132 


JOYSTICK 


EQU 


* 




014133 




LDA 


J . MODE 


VALIDATE J. MODE 


014134 




CMP 


#$08 




014135 




BCC 


JS010 




014136 




LDA 


#>BAD JMODE 




014137 


JS . ERR 


JSR 


SYSERR 




014138 










014139 


JS010 


JSR 


AD . SETUP 


SET UP RESOURCES 


014140 




BCS 


JS . ERR 




014141 




LDA 


J . MODE 


READ PORT B OR PORT A? 


014142 




AND 


#BITON2 




014143 




BNE 


JS020 




014144 




LDA 


PB.SWO 


PORT B 


014145 




LDX 


PB.SW1 




014146 




LDY 


#$01 




014147 




BNE 


JS030 




014148 


JS020 


LDA 


PA.SWO 


PORT A 


014149 




LDX 


PA.SW1 




014150 




LDY 


#$03 




014151 


JS030 


STY 


AD . INPUT 


SAVE INPUT SELECT 


014152 




AND 


#BITON7 




014153 




BEQ 


JS040 




014154 




LDA 


#$FF 




014155 


JS040 


LDY 


#$00 
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014156 




STA 


(J. VALUE) , Y 




; RETURN SWITCH 


014157 




TXA 








014158 




AND 


#BITON7 






014159 




BEQ 


JS050 






014160 




LDA 


#$FF 






014161 


JS050 


INY 








014162 




STA 


(J. VALUE) , Y 




; RETURN SWITCH 1 


014163 












014164 




LSR 


J . MODE 






014165 




BCC 


JS060 






014166 




LDA 


AD . INPUT 






014167 




JSR 


AD . READ 




; READ A/D 


014168 




LDY 


#$02 






014169 




STA 


(J. VALUE) , Y 




; RETURN X AXIS 


014170 


JS060 


INC 


AD . INPUT 






014171 




LSR 


J . MODE 






014172 




BCC 


JS070 






014173 




LDA 


AD . INPUT 






014174 




JSR 


AD . READ 




; READ A/D 


014175 




LDY 


#$03 






014176 




STA 


(J. VALUE) , Y 




; RETURN Y AXIS 


014177 












014178 


JS070 


JSR 


AD . CLNUP 




; CLEAN UP 


014179 




RTS 






; AND EXIT 


014180 




PAGE 








014181 




REP 


60 






014182 












014183 


* SUBROUTINE 


AD . SETUP 








014184 


* THIS SUBROUTINE SETS 


UP THE ENVIRONMENT 


AND 


RESOURCES 


014185 


* FOR READING THE JOYSTICKS. IF AN ERROR 


OCCURS, CARRY 


014186 


* IS SET AND 


AN ERROR 


NUMBER IS RETURNED 


IN A. 




014187 


* OTHERWISE, 


CARRY IS 


CLEARED . 






014188 












014189 




REP 


60 






014190 


AD . SETUP 


EQU 








014191 




LDA 


#JOYSIRSIZ 






014192 




LDX 


#>JOYSIRTBL 






014193 




LDY 


#<JOYSIRTBL 






014194 




JSR 


ALLOCS IR 




; ALLOCATE RESOURCES 


014195 




BCC 


ADS010 






014196 




LDA 


#>XNORESRC 






014197 




RTS 








014198 


ADS010 


LDA 


E.REG 






014199 




AND 


#$7F 




;SET 2 MHZ, 


014200 




ORA 


#$43 




; ENABLE ROM, & I/O 


014201 




STA 


E.REG 






014202 




PHP 








014203 




SEI 








014204 




LDA 


D.ACR 






014205 




AND 


#BITOFF5 




;SET UP TIMER 
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014206 




STA 


D.ACR 




014207 




PLP 






014208 




BIT 


ENSEL 


; DISABLE ENSEL 


014209 




BIT 


ENSIO 


;SET ENSIO FOR INPUT 


014210 




RTS 






014211 


* 








014212 


JOYSIRTBL EQU 






014213 




DFB 


$0C, 0, 0, 0, 


; ENSIO 


014214 




DFB 


$0D,0,0,0,0 


; ENSEL 


014215 




DFB 


$0E,0,0,0,0 


; 6522 D.T2 


014216 


JOYS IRS I Z EQU 


*-JOYSIRTBL 




014217 




REP 


60 




014218 


* 








014219 




SUBROUTINE AD . CLNUP 






014220 




THIS SUBROUTINE RESTORES THE ENVIRONMENT AND 


RELEASES 


014221 


* 


THE RESOURCES AFTER READING THE JOYSTICKS. 




014222 










014223 




REP 


60 




014224 


AD 


CLNUP EQU 


* 




014225 




LDA 


E.REG 




014226 




AND 


#$3C 


; RESTORE RAM AT $C000 & 


014227 




STA 


E.REG 




014228 




LDA 


#JOYSIRSIZ 




014229 




LDX 


#>JOYSIRTBL 




014230 




LDY 


#<JOYSIRTBL 




014231 




JSR 


DEALCSIR 


REALLOCATE RESOURCES 


014232 




RTS 






014233 




PAGE 






014234 




REP 


60 




014235 










014236 




SUBROUTINE AD . READ 






014237 




THIS SUBROUTINE READS A 


SPECIFIED A/D INPUT 


AND RETURNS 


014238 




AN 8 BIT RESULT. IT ASSUMES THAT THE A/D RESOURCES HAVE 


014239 


* 


BEEN ALLOCATED, THE I/O 


SPACE AND SF000 ROM 


HAVE BEEN 


014240 




SELECTED, AND THE SYSTEM IS RUNNING IN 2 MHZ 


MODE. 


014241 










014242 




PARAMETERS : 






014243 


* 


A: A/D INPUT PORT (0- 


-7) 




014244 










014245 




RETURN VALUE: 






014246 


* 


A: RESULT (0 - 255) 






014247 




X, Y: UNDEFINED 






014248 


* 








014249 




REP 


60 




014250 










014251 


AD 


READ EQU 


★ 




014252 




LSR 


A 


; SELECT THE APPROPRIATE 


014253 




BIT 


AD.SEL0 


; A/D INPUT 


014254 




BCC 


ADR010 




014255 




BIT 


AD.SEL0+1 
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014256 
014257 
014258 
014259 
014260 
014261 
014262 
014263 
014264 
014265 
014266 
014267 
014268 
014269 
014270 
014271 
014272 
014273 
014274 
014275 
014276 
014277 
014278 
014279 
014280 
014281 
014282 
014283 
014284 
014285 
014286 
014287 
014288 
014289 
014290 
014291 
014292 
014293 
014294 
014295 
014296 
014297 
014298 
014299 
014300 
014301 
014302 
014303 
014304 
014305 



ADR010 

ADR020 

ADR030 
ADR040 



ADR050 



ADR0 60 



ADR070 



LSR 
BIT 
BCC 
BIT 
LSR 
BIT 
BCC 
BIT 
PHP 

CLI 
BIT 
LDA 
STA 
LDA 
STA 
LDA 
BIT 
BEQ 

SEI 
SEC 
LDA 
STA 
LDA 
BIT 
JSR 
BCC 

CLI 
SEI 
BIT 
BPL 
JSR 
BCS 

PLP 
EOR 
BMI 
STA 
TYA 
EOR 
LSR 
ROR 
LSR 
ROR 
LSR 
BNE 
ROR 
ADC 



A 

AD.SEL1 

ADR020 
AD.SEL1+1 

A 

AD . SEL2 

ADR030 

AD.SEL2+1 



AD . CHRG 

#>TCHARGE 

D.T2 

#<TCHARGE 
D.T2+1 
#BITON5 
D . IFR 

ADR050 



#>TOFFSET 
D.T2 

#<TOFFSET 
AD . STRT 
ANALOG 
ADR070 



AD . FLAG 
ADR04 
ANLOG1 
ADR060 



#$FF 
ADR080 
AD . TEMP 

#$FF 
AD . TEMP 
A 

AD . TEMP 

A 

AD . TEMP 

ADR090 

A 

#0 



; CHARGE A/D CAPACITOR 



;SET UP TIMER 

; START A/D TIMEOUT 

; MEASURE CONVERSION TIME 



; PROCESS AN INTERRUPT 

STILL TIMING? 

NO — START OVER 
YES — CONTINUE 



/NORMALIZE RESULT 
; RESULT < 



; RESULT > 255 
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014306 






RTS 




014307 


ADR080 




LDA 


#0 


014308 






RTS 




014309 


ADR090 




LDA 


#$FF 


014310 






RTS 




014311 






PAGE 




014312 






REP 


60 


014313 










014314 


* SYSTEM COLD 


START 




014315 










014316 


* THIS ROUTINE IS CALLED 


TO TELL THE 


014317 


* SYSTEM. 


IT 


CLEARS THE 


SCREEN, DISP 


014318 


* OVERWRITES 


BANKED MEMORY, AND HANGS 


014319 


* PERFORMS 


A 


HARD RESET. 




014320 










014321 






REP 


60 


014322 


* 








014323 










014324 


COLDSTRT 




EQU 


* 


014325 






SEI 




014326 






LDA 


#$40 


014327 






STA 


$FFCA 


014328 






LDA 


#$67 


014329 






STA 


E.REG 


014330 






LDA 


#$00 


014331 






STA 


Z.REG 


014332 


* 








014333 






LDX 


SYSBANK 


014334 






LDA 


#$BF 


014335 






LDY 


#$00 


014336 






STY 


MEMORY 


014337 


CS010 




STA 


MEMORY+1 


014338 






STX 


B.REG 


014339 






LDA 


#$A0 


014340 


CS020 




STA 


(MEMORY) , Y 


014341 






DEY 




014342 






BNE 


CS020 


014343 






DEC 


MEMORY+1 


014344 






BNE 


CS020 


014345 






DEX 




014346 






BPL 


CS010 


014347 










014348 






LDY 


#6 


014349 


CS030 




STA 


$C050 , Y 


014350 






DEY 




014351 






BPL 


CS030 


014352 










014353 






LDY 


#BOOTLEN 


014354 


CS040 




LDA 


BOOTMSG-1, Y 


014355 






STA 


BOOTADR-1, Y 



THE 



;SHUT DOWN INTERRUPTS 
; AND IGNORE NMI 



; DISABLE RESET 
;USE PAGE ZERO 



;SET MEMORY TO BLANKS 



; SELECT 40 COLUMN 

; BLACK & WHITE TEXT 



; PRINT BOOT MESSAGE 
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014356 
014357 
014358 
014359 
014360 
014361 
014362 
014363 
014364 
014365 
014366 
014367 
014368 
014369 
014370 
014371 
014372 
014373 
014374 
014375 
014376 
014377 
014378 
014379 



BOOTMSG 
BOOTLEN 
BOOTADR 



ZZEND 
ZZLEN 



DEY 
BNE 

LDA 

STA 

JMP 

PAGE 

MSB 

ASC 

EQU 

EQU 

MSB 

LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



CS040 

#$77 
E.REG 



; ENABLE RESET 

; HANG UNTIL RESET 



ON 

"INSERT SYSTEM DISKETTE & REBOOT" 

* -BOOTMSG 

40-BOOTLEN/2+$628 

OFF 

ON 



ZZEND-ZZORG 
ZZLEN-LENUMGR 
2, "SOSORG 



FILE IS INCORRECT FOR UMBR" 



************************************************************************* 



END OF APPLE /// SOS 1.3 SOURCE CODE FILE: UMGR.SRC 



************************************************************************* 
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01 4180 

\J -L ^ *J <J \J 










014381 


DOCUMENT : SOS1 . 3 . 3of 5 . THREE : SOS . VOLUME . TEXT 
















014382 










014383 

\J -L ^ *J <J ~J 










014384 




014385 


* APPLE /// SOS 1.3 SOURCE 


CODE FILE: VOLUME 






014386 




014387 


* ASSEMBLER: APPLE ] [ 6502 


ASSEMBLER from APPLE 


COMPUTER TOOLKIT 


014388 

\J -L ^ *J <J {J 










014389 


PAGE 








014390 


REP 


40 






014391 


* NAME : VOLUME 








014392 


* FUNCTION: RETURN VOLUME 


INFO 






014393 


* INPUT : DEVICE NAME 








014394 


* OUTPUT : THE INFO 








014395 


* VOLATILE: ALL REGS 








014396 


REP 


40 






014397 










014398 


VOLUME EQU 


* 






014399 


LDA 


C.DNAMP 




TRANSFER DEVICE NAME 


014400 


STA 


DVNAMP 




NAME FOR DMGR 


014401 


LDA 


C.DNAMP+1 






014402 


STA 


DVNAMP +1 






014403 


LDA 


SISTER+C.DNAMP+1 




AND XTND 


014404 


STA 


SISTER+DVNAMP+1 






014405 


JSR 


GETDNUM 




GET DEVNUM 


014406 


BCC 


VOL7 




=>SOME KINDA ERROR 


014407 


RTS 






RETURN ERROR 


014408 


VOL7 BMI 


VOL2 




=>IT'S GOOD. . . 


014409 


LDA 


tNOTBLKDEV 




NOT BLOCKED 


014410 


JMP 


VOLERR 




=>RETURN THE ERROR 


014411 










014412 


* UNCONDITIONALLY READ ROOT DIRECTORY: 






014413 










014414 


VOL2 EQU 








014415 


LDA 


SCRTCH+1 






014416 


STA 


DEVNUM 




SETUP DEV NUMBER 


014417 


LDA 


#2 




BLKNUM=2 


014418 


LDX 


#0 






014419 


JSR 


GETROT0 




GET IT PLEASE 


014420 


LDA 


tVNFERR 




ERROR CODE 


014421 


BCC 


VOL 8 




BRANCH IF NO ERROR ON READ 


014422 


RTS 






=>ERROR, PASS IT ON. 


014423 










014424 


VOL 8 LDA 


#>VCB 




SET VCBPTR TO THE 


014425 


STA 


VCBPTR 




FIRST OF THEM 


014426 


LDA 


#<VCB 






014427 


STA 


VCBPTR+1 






014428 
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014429 




IS THIS VOLUME SOS 


OR OTHER? 




014430 










014431 




JSR 


TSTSOS 


WHICH KIND? 


014432 




BCC 


VLOGGED 


=>IT'S SOS 


014433 




JMP 


VNOTSOS 


=>NOT SOS 


014434 










014435 




IS THIS SOS VOLUME 


LOGGED IN? 




014436 


* 








014437 


VLOGGED EQU 






014438 




JSR 


CMPVCB 


DOES VOLNAME MATCH? 


014439 




BCC 


VFOUND 


=>YES, WE KNOW ABOUT IT. 


014440 




JSR 


VNXTVCB 


BUMP TO NEXT 


014441 




BCC 


VLOGGED 


=>TRY ' EM ALL . . . 


014442 




BCS 


VNEW 


=>NOT FOUND, IT'S NEW (BRANCH ALWAYS) 


014443 


* 








014444 










014445 




IT'S BEEN LOGGED IN BEFORE: 




014446 




IS IT SWAPPED IN 


OR OUT? 




014447 


* 








014448 


VFOUND EQU 


* 




014449 




LDY 


#VCBSWAP 


INDEX TO IT 


014450 




LDA 


(VCBPTR) , Y 


SWAPPED? 


014451 




BPL 


VFOUND 1 


=>IN. RETURN THE INFO 


014452 










014453 


* 


SWAPPED OUT. BEFORE WE SWAP IT 




014454 




IN, MAKE SURE IT 


BELONGS ON 




014455 


* 


THIS DEVICE! 






014456 










014457 




LDY 


#VCBDEV 


INDEX TO IT 


014458 




LDA 


(VCBPTR) , Y 


GET ITS DEVICE 


014459 




CMP 


DEVNUM 


CORRECT DEVICE? 


014460 




BEQ 


VSWAPIN 


=>YES 


014461 




LDA 


#DUPVOL 


IF FOR ANOTHER DEV, 


014462 




JMP 


VOLERR 


THEN IT'S AN ERROR! 


014463 










014464 


* 


NOW SWAP-IN THIS VOLUME: 




014465 










014466 


VSWAPIN EQU 






014467 




JSR 


SWAP IN 


SWAP IT IN 


014468 




JMP 


VINFO 


AND RETURN THE INFO 


014469 










014470 


VFOUND 1 LDY 


#VCBDEV 




014471 




LDA 


(VCBPTR) , Y 


SAME DEVICES? 


014472 




CMP 


DEVNUM 




014473 




BEQ 


VINFO 


YES; RETURN THE INFORMATION 


014474 




LDY 


#VCBSTAT 




014475 




LDA 


(VCBPTR) , Y 


OPEN FILES? 


014476 




BPL 


VFOUND2 


BRANCH IF NOT 


014477 




LDA 


#DUPVOL 




014478 




BNE 


VOLERR 


ELSE REPORT DUPLICATE VOLUME ERROR (BRANCH 
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014479 
014480 
014481 
014482 
014483 
014484 
014485 
014486 
014487 
014488 
014489 
014490 
014491 
014492 
014493 
014494 
014495 
014496 
014497 
014498 
014499 
014500 
014501 
014502 
014503 
014504 
014505 
014506 
014507 
014508 
014509 
014510 
014511 
014512 
014513 
014514 
014515 
014516 
014517 
014518 
014519 
014520 
014521 
014522 
014523 
014524 
014525 
014526 
014527 
014528 



VFOUND2 



LDY 
LDA 
STA 
REP 



#VCBNML 
#0 

(VCBPTR) , Y 
40 



MOVE THE LOGIN TO THIS NEW DEVICE 
BY UNLOGGING THE OLD 

AND LOGGING IN THE NEW (DROP INTO VNEW) 



IT'S A BRAND NEW VOLUME. 
GUESS WE'LL HAVE TO LOG IT IN: 



VNEW 



VNEW1 



VFREE 



VFREEX 



* RAN OUT OF 
VNFIL 



* ALL OPEN 



VLOGIN 



EQU 
LDA 
JSR 
BCC 
LDA 
RTS 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
BEQ 
LDY 
LDA 
CMP 
BNE 
LDY 
LDA 
BPL 
LDA 
JSR 
BCC 
LDA 
RTS 
JSR 
BCC 

MT ' S ... 
LDY 
LDA 
BPL 
JSR 
BCC 

. . REPORT 
LDA 
BNE 
EQU 
JSR 
REP 



DEVNUM 
SWAPOUT 
VNEW1 
#XIOERROR 

#>VCB 

VCBPTR 

#<VCB 

VCBPTR+1 

#VCBNML 

(VCBPTR) , Y 
VLOGIN 
#VCBDEV 

(VCBPTR) , Y 
DEVNUM 
VFREEX 
#VCBSTAT 

(VCBPTR) , Y 
VLOGIN 
DEVNUM 
SWAPOUT 
VFREEX 
#XIOERROR 

VNXTVCB 

VFREE 
FIND W/O FILES 

#VCBSTAT 
(VCBPTR) , Y 

VLOGIN 

VNXTVCB 

VNFIL 
VCBFULL 

#FCBFULL 

VOLERR 

LOGVCB 
40 



PASS A REG TO SWAPOUT 

SWAP ANY ACTIVE VOL ON THIS DEVICE 

BRANCH ON NO ERROR 



; FIND AN EMPTY VCB 



; EMPTY VCB? 

; ITS FREE, USE IT 

; OR ONE WITH SAME DEVICE 

; BRANCH IF NO DEVICE MATCH 

AND NO OPEN FILES 
BRANCH IF OK TO REUSE THIS VCB 
THEN WE MUST SWAP OUT THIS VOLUME 

; SWAPOUT PROCEEDED OK 
; ELSE REPORT ERROR 



; TRY NEXT 

; MORE TO COME 



; AND LOGIN THIS ONE 



* RETURN ALL THE NICE INFO: 
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01452 9 VINFO EQU * 

014530 LDA #0 

014531 LDY #VCBTFRE ; FETCH VOLUME FREE BLOCK COUNT 

014532 STA (VCBPTR),Y ; FORCE RESCAN OF ALL 

014533 INY ; BITMAPS 

014534 STA (VCBPTR),Y ; TO MAKE SURE VCB INFO CURRENT 

014535 STA REQL ; FREE BLOCKS 

014536 STA REQH 

014537 JSR TSFRBLK 

014538 * 

014539 LDX VCBPTR ; GET VCB INDEX 

014540 LDY #0 

014541 VINFOl EQU * 

014542 LDA VCB+VCBTBLK, X ; MOVE TOTAL 

014543 STA (C.OUTBLK),Y ; BLOCKS AVAIL 

014544 INX 

014545 INY 

014546 CPY #4 ; AND FREE ONES TOO 

014547 BNE VINFOl 

014548 * 

014549 LDY #0 ; NOW DO VOLNAME 

014550 LDA (VCBPTR), Y 

014551 TAY 

014552 VINF02 EQU * 

014553 LDA (VCBPTR), Y 

014554 STA (C.OUTVOL),Y 

014555 DEY 

014556 BPL VINF02 

014557 CLC 

014558 BCC VOLRET ; =>DONE 

014559 * 

014560 VOLERR EQU * 

014561 SEC 

014562 VOLRET EQU * 

014563 RTS 

014564 PAGE 

014565 REP 40 



014566 * THIS ISN'T A SOS VOLUME. MARK 

014567 * THE ACTIVE VOL THIS DEVICE 

014568 * SO THAT IT GETS CHECKED LATER: 

014569 * 



014570 VNOTSOS 


EQU 






014571 


LDY 


tVCBDEV 


; IS VCB FOR THIS 


014572 


LDA 


(VCBPTR) , Y 


; DEVICE? 


014573 


CMP 


DEVNUM 




014574 


BNE 


VNS2 




014575 


LDY 


#VCBSTAT 


; INDEX TO IT 


014576 


LDA 


(VCBPTR) , Y 


; GET STATUS 


014577 


BPL 


VNS2 


; =>NOT ACTIVE. 


014578 


OPA 


#DSWITCH 


; SET 'SWITCHEROO 
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014579 
014580 
014581 
014582 
014583 
014584 
014585 
014586 
014587 
014588 
014589 
014590 
014591 
014592 
014593 
014594 
014595 
014596 
014597 
014598 
014599 
014600 
014601 
014602 
014603 
014604 
014605 
014606 
014607 
014608 
014609 



VNS2 



* NAME 

* FUNCTION 

* INPUT 

* OUTPUT 



* VOLATILE 
VNXTVCB 



STA 

EQU 
JSR 
BCC 



(VCBPTR) , Y 



VNXTVCB 
VNOTSOS 



LDA #NOTSOS 
BNE VOLERR 
SKP 5 
VNXTVCB 

BUMP VCBPTR TO NEXT VCB 

NOTHING 

VCBPTR UPDATED 

'BCC ' IF MORE TO GO 

'BCS' IF DONE 
AC 



EQU 
LDA 
CLC 
ADC 
STA 
RTS 

CHN 



VCBPTR 

#VCBSIZE 
VCBPTR 



CREATE, 4, 1 



PUT IT BACK 



GET NEXT VCB 
=>TRY 'EM ALL. 

GIVE THE ERROR 
(BRANCH ALWAYS) 



BUMP IT 

CARRY SET IF END OF PAGE 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: VOLUME 
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014610 
014611 
014612 
014613 
014614 
014615 
014616 
014617 
014618 
014619 
014620 
014621 
014622 
014623 
014624 
014625 
014626 
014627 
014628 
014629 
014630 
014631 
014632 
014633 
014634 
014635 
014636 
014637 
014638 
014639 
014640 
014641 
014642 
014643 
014644 
014645 
014646 
014647 
014648 
014649 
014650 
014651 
014652 
014653 
014654 
014655 
014656 
014657 
014658 



DOCUMENT : SOS1 . 3 . 4of 5 . FOUR : SOS . CLOSE . EOF . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: CLOSE. EOF 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

PAGE 



CLOSE 



CLOSALL 
CLSALL1 



NXTCLOS 



C3 



CFERR 



LDA 
BNE 
STA 
JSR 
LDA 
STA 
LDY 
LDA 
CMP 
BCC 
LDY 
LDA 
BEQ 
JSR 
BCS 
JSR 
LDY 
BEQ 
BCS 
LDA 
CLC 
ADC 
BCC 
LDA 
INC 
CMP 
BEQ 
CLC 
LDA 
BEQ 
SEC 
RTS 



DS 



C . REFNUM 

CLOSE1 

CFERR 

GFCBADR 

#0 

FCBPTR 
#FCBLEVL 

(FCBPTR) , Y 
LEVEL 
NXTCLOS 
#FCBREFN 

(FCBPTR) , Y 
NXTCLOS 
FLUSH2 
CLOSERR 
CLOSE2 
C . REFNUM 
NXTCLOS 
CLOSERR 
FCBPTR 

#$20 

CLSALL1 

FCBPTR+1 

FCBPTR+1 

FCBADDRH 

CLOSALL 

CFERR 

C3 



CLOSE ALL? 
NO, JUST ONE OF 'EM 
CLEAR GLOBAL CLOSE ERROR 
SET UP POINTER TO FCB 
BEGIN AT THE BEGINNING. 
SAVE CURRENT LOW BYTE OF POINTER 
FETCH THE LEVEL AT WHICH 
FILE WAS OPENED 

TEST AGAINST CURRENT GLOBAL LEVEL 
DONT CLOSE IF FILES LEVEL IS < GLOBAL LEVEL 
INDEX TO REFERENCE NUMBER 
IS THIS REFERENCE FILE OPEN? 
NO, TRY NEXT. 
CLEAN IT OUT. . . 
RETURN FLUSH ERRORS 
UPDATE FCB & VCB 

; NO ERR IF CLOSE ALL 

; BUMP POINTER TO NEXT FILE CONTROL BLOCK. 



BRANCH IF WITHIN SAME PAGE. 

BUMP TO NEXT PAGE. 

HAVE WE CHECKED BOTH PAGES? 

YES, RETURN NO ERROR. 

ON FINAL CLOSE OF CLOSE ALL REPORT LOGGED ERRORS 
BRANCH IF NO ERRORS 



; GLOBAL ERROR FLAG FOR FLUSH AND CLOSE ALL 
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014659 
014660 
014661 
014662 
014663 
014664 
014665 
014666 
014667 
014668 
014669 
014670 
014671 
014672 
014673 
014674 
014675 
014676 
014677 
014678 
014679 
014680 
014681 
014682 
014683 
014684 
014685 
014686 
014687 
014688 
014689 
014690 
014691 
014692 
014693 
014694 
014695 
014696 
014697 
014698 
014699 
014700 
014701 
014702 
014703 
014704 
014705 
014706 
014707 
014708 



CLOSE1 
CLOSE2 



CLOSEND 
CLOSERR 

FLUSH 



FLSHALL 
FLSHAL1 



NXFLUSH 



FLUSHEND 



JSR 
BCS 
LDY 
LDA 
JSR 
BCS 
LDA 
LDY 
STA 
INY 
LDA 
STA 
JSR 
LDX 
DEC 
BNE 
LDA 
AND 
STA 
CLC 
RTS 
JMP 

PAGE 

LDA 
BNE 
STA 
JSR 
LDA 
STA 
LDY 
LDA 
BEQ 
JSR 
BCS 

BCS 
LDA 
CLC 
ADC 
BCC 
LDA 
INC 
CMP 
BEQ 
CLC 
LDA 
BEQ 
SEC 



FLUSH1 
CLOSERR 
#FCBBUFN 
(FCBPTR) , Y 
RELBUF 
CLOSERR 
#0 

#FCBREFN 
(FCBPTR) , Y 

(FCBPTR) , Y 
DEVNUM 
DEWCB 
VCBPTR 

VCB+VCBOPNC,X 
CLOSEND 
VCB+VCBSTAT,X 
#$7F 

VCB+VCBSTAT,X 



GLBERR 



C . REFNUM 

FLUSH1 

CFERR 

GFCBADR 

#0 

FCBPTR 
#FCBREFN 
(FCBPTR) , Y 
NXFLUSH 
FLUSH2 
FLSHERR 

CLOSERR 
FCBPTR 

#$20 

FLSHAL1 

FCBPTR+1 

FCBPTR+1 

FCBADDRH 

FLSHALL 

CFERR 
F3 



; FLUSH FILE FIRST (INCLUDING UPDATING BIT MAP) 



; BUMP TO ' FCBDEVN ' 
; GO LOOK FOR ASSOCIATED VCB. 
GET VCBPTR 

INDICATE ONE LESS FILE OPEN. 
BRANCH IF THAT WASN'T THE LAST. 

STRIP 'FILES OPEN' BIT 



; DON'T REPORT CLOSALL ERR NOW 



FLUSH ALL? 

NO, JUST ONE OF 'EM 

CLEAR GLOBAL FLUSH ERROR 

SET UP POINTER TO FCB 

BEGIN AT THE BEGINNING. 

SAVE CURRENT LOW BYTE OF POINTER 

INDEX TO REFERENCE NUMBER 

IS THIS REFERENCE FILE OPEN? 

NO, TRY NEXT. 

CLEAN IT OUT. . . 

RETURN ANY ERRORS 



; BUMP POINTER TO NEXT FILE CONTROL BLOCK. 



; BRANCH IF WITHIN SAME PAGE. 

BUMP TO NEXT PAGE. 
HAVE WE CHECKED BOTH PAGES? 
YES, RETURN NO ERROR. 

ON LAST FLUSH OF A FLUSH (0) 
BRANCH IF NO LOGGED ERRORS 
REPORT ERROR NOW 



Apple / // Sophisticated Operating System (SOS) 1.3 Source Code Listing » PTC 8/ 2001 » Page 318 of 391 



Apple / / / Computer I nformation 



014709 


F3 


RTS 








014710 


FLSHERR 


JMP 


GLBERR 




FLUSH ALL OR ONE? 


014711 












014712 


FLUSH2 


JSR 


FNDFCBUF 




MUST SET UP ASSOCIATED VCB AN BUFFER LOCATIONS FIRST 


014713 




BCC 


FLUSH2A 




BRANCH IF NO ERROR ENCOUNTERED. 


014714 




JMP 


GLBERR 




CHECK FOR CLOSE OR FLUSH ALL 


014715 












014716 


FLUSH1 


LDA 


#0 




CLEAR 


014717 




STA 


CFERR 




GLOBAL ERROR FOR NORMAL REFNUM FLUSH 


014718 




JSR 


FINDFCB 




SET UP POINTER TO FCB USER REFERENCES 


014719 




BCS 


FLSHERR 




RETURN ANY ERRORS 


014720 


FLUSH2A 


LDY 


#FCBATTR 




TEST TO SEE IF FILE IS 


014721 




LDA 


(FCBPTR) , Y 




MODIFIED. FIRST TEST WRITE ENABLED. 


014722 




AND 


#WRITEN 






014723 




BEQ 


FLUSHEND 


r 


BRANCH IF 'READ ONLY' 


014724 




LDY 


#FCBDIRTY 


r 


SEE IF EOF HAS BEEN MODIFIED 


014725 




LDA 


(FCBPTR) , Y 






014726 




BMI 


FLUSH2B 




BRANCH IF IT HAS 


014727 




LDY 


#FCBSTAT 




NOW TEST FOR DATA MODIFIED. 


014728 




LDA 


(FCBPTR) , Y 




(IN OTHER WORDS: WAS FILE ACTUALLY 


014729 




AND 


# U SEMOD +EOFMOD +DATMOD 


; WRITTEN TO WHILE IT'S BEEN OPEN?) 


014730 




BEQ 


FLUSHEND 




BRANCH IF FILE NOT MODIFIED. 


014731 


FLUSH2B 


JSR 


TWRPROT1 




DISK SWITCH CHECKING 


014732 




LDA 


DSWGLOB 






014733 




BEQ 


FLUSH2C 


r 


BRANCH IF NO SWITCH 


014734 




LDA 


#XDISKSW 






014735 




SEC 








014736 




RTS 




t 


FORCES A VERIFIED RETRY 


014737 


FLUSH2C 


LDY 


#FCBSTAT 


i 


NOW TEST FOR DATA MODIFIED. 


014738 




LDA 


(FCBPTR) , Y 






014739 




AND 


#DATMOD 




DOES CURRENT DATA BUFFER NEED TO BE 


014740 




BEQ 


FLUSH3 




WRITTEN? BRANCH IF NOT. 


014741 




JSR 


WFCBDAT 




IF SO, GO WRITE IT STUPID! 


014742 




BCS 


FLSHERR 






014743 


FLUSH3 


LDY 


#FCBSTAT 


t 


CHECK TO SEE IF THE INDEX BLOCK (TREE FILES ONLY) 


014744 




LDA 


(FCBPTR) , Y 


i 


NEEDS TO BE WRITTEN. 


014745 




AND 


#IDXMOD 






014746 




BEQ 


FLUSH4 


t 


BRANCH IF NOT . . . 


014747 




JSR 


WFCBIDX 






014748 




BCS 


FLSHERR 


t 


RETURN ANY ERRORS. 


014749 




PAGE 








014750 












014751 


FLUSH4 


LDY 


tFCBENTN 




NOW PREPARE TO UPDATE DIRECTORY 


014752 


OWNRMOV 


LDA 


(FCBPTR) , Y 




NOTE: THIS CODE DEPENDS ON THE 


014753 




STA 


D . DEV-FCBDEVN, Y 




DEFINED ORDER OF THE FILE CONTROL 


014754 




DEY 






BLOCK AND THE TEMPORARY DIRECTORY AREA IN 'WORKSPC! 


014755 




CPY 


#FCBDEVN-1 






014756 




BNE 


OWNRMOV 






014757 




LDA 


D . HEAD 


} 


READ IN THE DIRECTORY HEADER FOR THIS FILE 


014758 




STA 


BLOKNML 
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014759 




LDA 


D.HEAD+1 




014760 




STA 


BLOKNMH 




014761 




LDA 


D.DEV 




014762 




STA 


DEVNUM 




014763 




JSR 


RDGBUF 


READ IT INTO THE GENERAL PURPOSE BUFFER 


014764 




BCS 


FLSHERR 


BRANCH IF ERROR. 


014765 




JSR 


MOVHED0 


MOVE HEADER INFO. 


014766 




LDA 


D . ENTBLK 


GET ADDRESS OF DIRECTORY BLOCK THAT 


014767 




LDY 


D.ENTBLK+1 


CONTAINS THE FILE ENTRY. 


014768 




CMP 


D . HEAD 


TEST TO SEE IF IT'S THE SAME BLOCK THAT 


014769 




BNE 


FLSHEBLK 


THE HEADER IS IN. BRANCH IF NOT. 


014770 




CPY 


D.HEAD+1 




014771 




BEQ 


FLUSH5 


BRANCH IF HEADER BLOCK = ENTRY BLOCK. 


014772 


FLSHEBLK 


STA 


BLOKNML 




014773 




STY 


BLOKNMH 




014774 




JSR 


RDGBUF 


GET BLOCK WITH FILE ENTRY IN GENERAL BUFFER. 


014775 


FLUSH5 


JSR 


ENTCALC 


SET UP POINTER TO ENTRY 


014776 




JSR 


MOVENTRY 


MOVE ENTRY TO TEMP ENTRY BUFFER IN 'WORKSPC 


014777 




LDY 


#FCBUSE 


UPDATE 'BLOCKS USED' COUNT. 


014778 




LDA 


(FCBPTR) , Y 




014779 




STA 


DFIL+D. USAGE 




014780 




INY 






014781 




LDA 


(FCBPTR) , Y 




014782 




STA 


DFIL+D. USAGE+1 


HI BYTE TOO . . . 


014783 




LDY 


#FCBEOF 


AND MOVE IN END OF FILE MARK WHETHER 


014784 


EOFUPDTE 


LDA 


(FCBPTR) , Y 


WE NEED TO OR NOT. 


014785 




STA 


DFIL+D . EOF-FCBEOF, Y 




014786 




INY 




MOVE ALL THREE BYTES. 


014787 




CPY 


#FCBEOF+3 




014788 




BNE 


EOFUPDTE 




014789 




LDY 


#FCBFRST 


ALSO MOVE IN THE ADDRESS OF 


014790 




LDA 


(FCBPTR) , Y 


THE FILE'S FIRST BLOCK SINCE 


014791 




INY 




IT MIGHT HAVE CHANGED SINCE THE FILE 


014792 




STA 


DFIL+D. FRST 


FIRST OPENED. 


014793 




LDA 


(FCBPTR) , Y 




014794 




STA 


DFIL+D. FRST+1 




014795 




PAGE 






014796 




LDY 


#FCBSTYP 


AND THE LAST THING TO UPDATE IS 


014797 




LDA 


(FCBPTR) , Y 


THE STORAGE TYPE. 


014798 




ASL 


A 


(SHIFT IT INTO THE HI NIBBLE) 


014799 




ASL 


A 




014800 




ASL 


A 




014801 




ASL 


A 




014802 




STA 


SCRTCH 




014803 




LDA 


DFIL+D. STOR 


GET OLD TYPE BYTE (IT MIGHT BE THE SAME) 


014804 




AND 


#$F 


STRIP OFF OLD TYPE 


014805 




ORA 


SCRTCH 


ADD IN THE NEW TYPE, 


014806 




STA 


DFIL+D. STOR 


AND PUT IT AWAY. 


014807 




JSR 


DREVISE 


GO UPDATE DIRECTORY! 


014808 




BCS 


FLUSHERR 
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014809 




LDY 


#FCBDIRTY 




MARK 


014810 




LDA 


(FCBPTR) , Y 




FCB/DIRECTORY 


014811 




AND 


#$FF-FCBMOD 




AS 


014812 




STA 


(FCBPTR) , Y 




UNDIRTY 


014813 




LDX 


#0 




NOW CHECK TO SEE IF A BIT MAP 


014814 




LDA 


D.DEV 




IS LYING AROUND THAT SHOULD BE WRITTEN 


014815 




CMP 


BMADEV 




IS IT IN MAP BUFFER A? 


014816 




BEQ 


BMAPUP 




YES, PUT IT ON THE DISK IF NECESSARY. 


014817 




LDX 


#BMTABSZ 




SET INDEX TO BIT MAP TABLE 'B' 


014818 




CMP 


BMBDEV 




NO, WHAT ABOUT BIT MAP BUFFER B? 


014819 




BNE 


FLSHEND1 




NOPE, ALL DONE. 


014820 


BMAPUP 


LDA 


BMASTAT, X 




TEST TO SEE IF IT'S BEEN MODIFIED. 


014821 




BPL 


FLSHEND1 




NOPE, ALL DONE AS I SAID. 


014822 




STX 


BMTAB 






014823 




JSR 


WRTBMAP 




GO PUT IT AWAY. 


014824 




BCS 


FLUSHERR 






014825 




LDX 


BMTAB 




MARK MAP AS UPDATED 


014826 




LDA 


#0 






014827 




STA 


BMASTAT, X 






014828 


FLSHEND1 


CLC 








014829 




RTS 








014830 


FLUSHERR 


EQU 


* 




DROP INTO GLBERR 


014831 












014832 


GLBERR 


EQU 






REPORT ERROR IMMEDIATELY 


014833 


* ONLY IF 


NOT A CLOSE ALL 


OR FLUSH ALL 






014834 




LDX 


C . REFNUM 






014835 




BNE 


GLBERR1 




NOT AN 'ALL' SO REPORT NOW 


014836 




CLC 








014837 




STA 


CFERR 




SAVE FOR LATER 


014838 


GLBERR1 


RTS 








014839 












014840 












014841 


GFCBADR 


LDA 


FCBANKNM 




GET BANK THAT FCB IS IN 


014842 




STA 


SISFCBP 






014843 




LDA 


FCBADDRH 




AND HIGH BYTE ADDRESS OF FILE CONTORL 


014844 




STA 


FCBPTR+1 






014845 




RTS 






SILLY THAT IT'S SO SHORT... 


014846 












014847 


SETERR 


LDA 


#ACCSERR 






014848 




SEC 








014849 


EOFRETN 


RTS 








014850 




PAGE 








014851 












014852 


SETEOF 


LDY 


#FCBSTYP 




ONLY KNOW HOW TO MOVE EOF OF TREE TYPE 


014853 




LDA 


(FCBPTR) , Y 






014854 




CMP 


#TRETYP+1 






014855 




BCS 


SETERR 




BRANCH IF OTHER THAN TREE 


014856 




LDY 


#FCBATTR 




NOW CHECK TO INSURE WRITE IS ENABLED. 


014857 




LDA 


(FCBPTR) , Y 






014858 




AND 


#WRITEN 




CAN WE SET NEW EOF? 
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014859 
014860 
014861 
014862 
014863 
014864 
014865 
014866 
014867 
014868 
014869 
014870 
014871 
014872 
014873 
014874 
014875 
014876 
014877 
014878 
014879 
014880 
014881 
014882 
014883 
014884 
014885 
014886 
014887 
014888 
014889 
014890 
014891 
014892 
014893 
014894 
014895 
014896 
014897 
014898 
014899 
014900 
014901 
014902 
014903 
014904 
014905 
014906 
014907 
014908 



SET SAVE 



NEOFPOS 



NEOFTST 



SETEOF0 
SETEOF1 
SETEOF2 



PURTEST 



PURTEST1 
TRELEAS1 

PURGE 



BEQ 
JSR 
BCS 
LDY 
LDX 
LDA 
STA 
DEY 
DEX 
BPL 
JSR 
BCS 
LDX 
LDA 
STA 
DEX 
BPL 
LDY 
LDX 
LDA 
CMP 
BCC 
BNE 
DEY 
DEX 
BPL 
JSR 
BCS 
LDX 
LDY 
LDA 
STA 
DEY 
DEX 
BPL 
JSR 

LDX 
LDA 
CMP 
BCC 
BNE 
DEX 
BPL 
JMP 
JMP 

LDY 
LDA 
CMP 



SETERR 

TSTWPROT 

SETERR 

#FCBEOF+2 

#2 

(FCBPTR) , Y 
OLDEOF,X 



SETSAVE 
ADJMARK 
EOFRETN 
#2 

TPOSLL,X 
C.NEWEOF,X 

NEOFPOS 

#FCBMARK+2 

#2 

(FCBPTR) , Y 
C.NEWEOF,X 
SETEOF1 
SETEOF0 



NEOFTST 
RDPOSN 
EOFRETN 
#2 

#FCBEOF+2 
C.NEWEOF,X 
(FCBPTR) , Y 



SETEOF2 
FCBUSED 

#2 

OLDEOF,X 
C.NEWEOF,X 
PURTEST1 
PURGE 

PURTEST 

FLSHEND1 

TRELEASE 

#FCBSTYP 
(FCBPTR) , Y 
#SEEDTYP 



NOPE, ACCESS ERROR. 

FIND OUT IF MOD IS POSIBLE (HARDWARE WRITE PROTECT) 



SAVE OLD EOF 

SO IT CAN BE SEEN 

WHETHER BLOCKS NEED 

TO BE RELEASED 

UPON 

CONTRACTION 

ALL THREE BYTES OF THE EOF 

GET ADJUSTED END OF FILE ACCORDING TO 

RETURN ANY ERROR IMMEDIATELY 



'C.BASE' INTO TPOS. 



; POSITION MARK TO NEW EOF 



; FIND OUT IF EOF < MARK. 



COMPARE UNTIL NOT EQUAL OR CARRY CLEAR 
BRANCH IF EOF>MARK 
BRANCH IF EOF<MARK 



LOOP ON ALL THREE BYTES 
READ IN NEW POSITION. 
RETURN ANY ERRORS. 

MOVE NEW EOF TO FCB . 



MOVE ALL THREE BYTES. 

MARK FCB AS DIRTY (FOR FLUSH) 

POINT TO THIRD BYTE 

SEE IF EOF MOVED BACKWARDS 

SO BLOCKS CAN 

BE RELEASED (BRANCH IF NOT) 
BRANCH IF BLOCKS TO BE RELEASED 

ALL THREE BYTES 
NEW EOF NOT SMALLER 
OVERFLOW PREVENTER 

FIND OUT WHAT TYPE OF TREE 
TO PERFORM THE PROPER 
STYLE OF BLOCK RELEASE 
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014909 




BEQ 


EOFOUT ; 


SEED DON'T DEALLOCATE 


014910 




CMP 


#TRETYP ; 


FULL TREE? 


014911 




BEQ 


TRELEAS 1 ; 


BRANCH IF YES 


014912 


* 








014913 




IF WE GET HERE, WE ARE RELEASING 




014914 




BLOCKS AT THE END OF A SAPLING FILE: CALCULATE 


CORRECT POSITION 


014915 


* 


WITHIN THE INDEX BLOCK AND ALLOW SUBROUTINE 




014916 




PURGE LATTER BLOCKS 


TO DEALLOCATE 




014917 


* 


ALL THE DATA BLOCKS 


THAT FOLLOW 




014918 


* 








014919 




JSR 


FNDBMAP ; 


REFRESH THE RIGHT MAP FOR THIS VOLUME 


014920 




LDX 


TPOSHI ; 


PRELOAD 


014921 




LDY 


TPOSLH ; 


THE THREE EOF 


014922 




LDA 


TPOSLL ; 


BYTES 


014923 




BNE 


PUR1 ; 


BRANCH IF NO BOUNDARY ADJUSTMENT NEEDED 


014924 




CPY 


#0 




014925 




BNE 


PUR2 ; 


MIDDLE BYTE ZERO MEANS NO CARRY 


014926 




CPX 


#0 ; 


ALL BYTES ZERO?? 


014927 




BEQ 


PUR1 ; 


BRANCH IF YES 


014928 




DEX 






014929 










014930 


* 


THESE LINES IF CODE, 


SOMEWHAT CRYPTIC, 




014931 


* 


CALCULATE THE POINT 


AT WHICH THE 




014932 


* 


LAST BLOCK CONTAINING THE LAST BIT 




014933 




OF DATUM 






014934 










014935 


* 


THE FOLLOWING IS ROUGHLY A /512 




014936 




ALGORITHM 






014937 










014938 


PUR2 DEY 






014939 


PUR1 TXA 






014940 




LSR 


A 




014941 




TYA 






014942 




ROR 


A 




014943 










014944 




JSR 


PURLBLKS ; 


MAKES A GOOD PTR TO DO THE RELEASING 


014945 




LDY 


#FCBSTAT ; 


MARK INDEX BLOCK 


014946 




LDA 


(FCBPTR) , Y ; 


AS DIRTY 


014947 




ORA 


#IDXMOD 




014948 




STA 


(FCBPTR) , Y 




014949 




LDA 


PURUSE ; 


INDICATE NEW NUMBER OF BLOCKS USED 


014950 




CLC 






014951 




ADC 


#2 ; 


ACCOUNT FOR CARDINAL AND INDEX 


014952 




LDY 


#FCBUSE 




014953 




STA 


(FCBPTR), Y ; 


FILE LOW BYTE 


014954 




INY 






014955 




LDA 


#0 ; 


ANTICIPATE <257 BLOCKS 


014956 




BCC 


PURHI 




014957 




LDA 


#i ; 


>256 BLOCKS IN FILE 


014958 


PURHI STA 


(FCBPTR), Y ; 


HIGH BYTE BLOCKS USED 
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014959 
014960 
014961 
014962 
014963 
014964 
014965 
014966 
014967 
014968 
014969 
014970 
014971 
014972 
014973 
014974 
014975 
014976 
014977 
014978 
014979 
014980 
014981 
014982 
014983 
014984 
014985 
014986 
014987 
014988 
014989 
014990 
014991 
014992 
014993 
014994 
014995 
014996 
014997 
014998 
014999 
015000 
015001 
015002 
015003 
015004 
015005 
015006 
015007 
015008 



EOFOUT 



CLC 
RTS 



PURLBLKS EQU * 

* INPUT ARG: A REGISTER CONTAINING 

* POINTER TO CURRENT DATA BLOCK WITHIN THE 

* CURRENT INDEX BLOCK (TINDX) 

* DEALLOCATE ALL LEGAL BLOCKS AFTER 

* THE A REGISTER PTR . NO ERRORS POSSIBLE 



; NO ERRORS POSSIBLE 
; PURGE LATTER BLOCKS 



PURLOOP 



PURLRTS 
PURUSE 
PURPLACE 
TRELEASE 



GETEOF 
OUTEOF 



TAY 

STY 

INY 

BEQ 

INC 

LDA 

TAX 

LDA 

STA 

TXA 

DEC 

ORA 

BEQ 

LDA 

PHA 

LDA 

STA 

PLA 

STY 

JSR 

LDY 

CLC 

LDA 

ADC 

STA 

INY 

LDA 

ADC 

STA 

LDY 

JMP 

RTS 

DS 

DS 

EQU 

JMP 

LDY 
LDX 
LDA 



PURUSE 

PURLRTS 
TINDX+1 
(TINDX) , Y 

#0 

(TINDX) , Y 

TINDX+1 
(TINDX) , Y 

PURLOOP 
(TINDX) , Y 

#0 

(TINDX) , Y 

PURPLACE 

DEALLOC 

#VCBTFRE 

(VCBPTR) , Y 
#1 

(VCBPTR) , Y 

(VCBPTR) , Y 
#0 

(VCBPTR) , Y 
PURPLACE 
PURLOOP 

1 
1 

EOFOUT 

#FCBEOF 
#0 

(FCBPTR) , Y 



MAKE PROPER INDEX 

INDICATES NUMBER OF BLOCKS IN USE IN FILE 
POINT TO A PTR TO DATA BLK TO DEALLOCATE 
NO MORE BLOCKS IN INDEX 
GET HIGH PART OF BLOCK ADDR 

X IS A PASSING FARM 
TELL INDEX BLOCK THAT THE DATA 
BLOCK IS NOW FREE 

; AND LOW PART 

; INDICATED ADDR WAS ZERO-ZERO 
; A REG IS ANOTHER PASSING PARM 



; AND SET LOW DATA ADDR AS FREED 
; TEMP STORAGE 

; DEALLOCATE BLOCK (ADDR: A (LOW) , X ( HIGH) 



; ADJUST NUMBER OF FREE BLOCKS ON VOLUME 



; HIGH BYTE OF TOTAL FREE 



; CURRENT NUMBER OF BLOCKS USED 

; CURRENT PLACE IN RELEASE-BLOCK CYCLE 

; RELEASE TWO LEVEL TREE CODE GOES HERE 

; INDEX TO END OF FILE MARK 

; WE'VE GOT INDIRECT BOTH WAYS (IN & OUT) 
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015009 


STA 


(C.OUTEOF,X) 




015010 


INY 






015011 


CPY 


#FCBEOF+3 




015012 


BEQ 


OFFRTS 


; BRANCH IF ALL THREE 


015013 


INC 


C . OUTEOF 


; BUMP USER'S POINTER 


015014 


BNE 


OUTEOF 




015015 


INC 


C.OUTEOF+1 




015016 


BNE 


OUTEOF 


; BRANCH ALWAYS 


015017 * 








015018 


CHN 


DESTROY, 4,2 





015019 
015020 
015021 
015022 
015023 
015024 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: CLOSE. EOF 

************************************************************************* 
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015025 
015026 
015027 
015028 
015029 
015030 
015031 
015032 
015033 
015034 
015035 
015036 
015037 
015038 
015039 
015040 
015041 
015042 
015043 
015044 
015045 
015046 
015047 
015048 
015049 
015050 
015051 
015052 
015053 
015054 
015055 
015056 
015057 
015058 
015059 
015060 
015061 
015062 
015063 
015064 
015065 
015066 
015067 
015068 
015069 
015070 
015071 
015072 
015073 



DOCUMENT : SOS1 . 3 . 4of 5 . FOUR: SOS . DESTROY . TEXT 



NEWLINE 



OFFNEWL 



OFFRTS 



GETINFO 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: DESTROY 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



PAGE 

LDY 
LDA 
BPL 
LDA 
ORA 
STA 
LDY 
LDA 
STA 
CLC 
RTS 

LDA 
AND 
STA 
CLC 
RTS 
PAGE 

JSR 
BCC 
CMP 
SEC 
BNE 
LDA 
STA 
LDA 
STA 
STA 
JSR 
LDY 
LDA 
STA 
DEY 
LDA 
STA 
DEY 
LDA 



#FCBATTR 
C. ISNEWL 
OFFNEWL 
#NLINEN 
(FCBPTR) , 
(FCBPTR) , 
#FCBNEWL 
C . NEWL 
(FCBPTR) , 



#$FF-NLINEN 
(FCBPTR) , Y 
(FCBPTR) , Y 



FINDFILE 

GTINFOl 

#BADPATH 

GINFOERR 
#$F0 

DFIL+D. STOR 
#0 

REQL 
REQH 
TSFRBLK 
#VCBTFRE+1 
(VCBPTR) , Y 
REQH 

(VCBPTR) , Y 
REQL 

(VCBPTR) , Y 



; ADJUST NEWLINE STATUS FOR OPEN FILE. 

; ON OR OFF? 

; BRANCH IF NEW LINE IS TO BE CLEARED. 

; SET NEW LINE BIT IN ATTRIBUTES 

; AND MOVE IN NEW 'NEW-LINE' BYTE. 



; NO ERROR POSSIBLE. 



; CLEAR NEW-LINE BIT. 

; THE NEW LINE CHARACTER DOES ' T MATTER... 



LOOK FOR FILE THEY WANT OT KNOW ABOUT. 
BRANCH IF NO ERRORS. 
WAS IT A ROOT DIRECTORY FILE? 
(IN CASE OF NO MATCH) 



; FOR GET INFO, REPORT PROPER STORAGE TYPE 
; FORCE A COUNT OF FREE BLOCKS. 



; (RETURNS IF IMMEDIATELY IF COUNT HAS PREVIOUSLY BEEN TAKEN) 

; RETURN TOTAL BLOCKS AND TOTAL IN USE. 

; FIRST TRANSFER 'FREE' BLOCKS TO ZPAGE FOR LATER SUBTRACT 

; TO DETERMINE THE 'USED' COUNT 



; TRANSFER TO ' D . ' TABLE AS AUX I . D . 
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015074 




STA 


DFIL+D.AUXID+1 




(TOTAL BLOCK COUNT IS CONSIDERED AUX I.D. FOR THE VOLUME) 


015075 




TAX 








015076 




DEY 








015077 




LDA 


(VCBPTR) , Y 






015078 




STA 


DFIL+D.AUXID 






015079 




SEC 






NOW SUBTRACT AND REPORT THE NUMBER OF BLOCKS 'IN USE' 


015080 




SBC 


REQL 






015081 




STA 


DFIL+D. USAGE 






015082 




TXA 








015083 




SBC 


REQH 






015084 




STA 


DFIL+D. USAGE+1 






015085 


GTINFOl 


LDY 


#0 




TRANSFER BYTES FROM THERE INTERNAL ORDER TO CALL SPEC VIA 


TRANSLATION 










015086 


GTINF02 


LDA 


INFTABL, Y 






015087 




BPL 


GTINF03 




BRANCH IF THIS IS DATA IS VALID AS IS. 


015088 




AND 


#$7F 




IS THIS THE 4TH BYTE OF THE EOF PARAMETER? 


015089 




BEQ 


GTINF04 




YES, AND IT'S ALWAYS A ZERO. 


015090 




CMP 


#D.STOR+l 




IS THIS THE STORAGE TYPE BYTE? 


015091 




BNE 


GINFOEND 




NO, IT'S THE END OF INFO THAT CAN BE RETURNED. 


015092 




LDA 


DFIL+D. STOR 




GET STORAGE TYPE 


015093 




LSR 


A 






015094 




LSR 


A 






015095 




LSR 


A 






015096 




LSR 


A 




MAKE IT A VALUE 1-$F BY SHIFTING OUT FILE NAME LENGTH. 


015097 




BPL 


GTINF04 




BRANCH ALWAYS 


015098 












015099 


GTINF03 


TAX 






USE AS OFFSET INTO ' D . ' TABLE . 


015100 




LDA 


DFIL,X 






015101 


GTINF04 


STA 


(C.FILIST) , Y 




PASS TO USER'S BUFFER 


015102 




INY 








015103 




CPY 


C.FILSTLN 




HAS REQUEST BEEN FILLED? 


015104 




BNE 


GTINF02 




NO, PASS NEXT 


015105 


GINFOEND 


CLC 






INDICATE NO ERRORS 


015106 


GINFOERR 


RTS 








015107 












015108 












015109 




PAGE 








015110 


* 










015111 


SETINFO 


JSR 


FINDFILE 




FIND WHAT USER WANTS. . . 


015112 




BCS 


SINFOERR 




RETURN ANY FAILURE. 


015113 




LDA 


C.FILSTLN 




TEST FOR NUL CHANGE 


015114 




BEQ 


SINFEND 




BRANCH IF NOTHING TO CHANGE. 


015115 




LDY 


#0 




INIT POINTER TO USER SUPPLIED LIST. 


015116 




LDA 


(C.FILIST) , Y 




FETCH FILE ATTRIBUTES 


015117 




AND 


#$1C 




FORBIDDEN BITS? <SRS 82.162> 


015118 




BEQ 


SETINF1 




NO 


015119 




LDA 


#ACCSERR 




YES 


015120 




SEC 








015121 




RTS 






RETURN AN ERROR 


015122 


SETINF1 


LDA 


BACKMASK 




GET CURRENT BACKMASK <SRS 82.162> 
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015123 
015124 
015125 
015126 
015127 
015128 
015129 
015130 
015131 
015132 
015133 
015134 
015135 
015136 
015137 
015138 
015139 
015140 
015141 
015142 
015143 
015144 
015145 
015146 
015147 
015148 
015149 
015150 
015151 
015152 
015153 
015154 
015155 
015156 
015157 
015158 
015159 
015160 
015161 
015162 
015163 
015164 
015165 
015166 
015167 
015168 
015169 
015170 
015171 
015172 



* BACKUP KNOWS HOW TO RESET THIS BIT. <SRS 82.162> 
SETINF1X 



SINFEND 
SETINF2 

SETINF3 



SINFEND1 
BKBITFLG 

* 

INFTABL 



RENAME 



SINFOERR 
RNAMEVOL 



STA 
LDX 
BMI 
LDA 
STA 
INY 
CPY 
BNE 
JMP 

LDY 
CPY 
BCC 
LDY 
LDX 
BMI 
LDA 
STA 
INY 
CPY 
BNE 
JMP 

DS 



DFB 
DFB 
DFB 
DFB 
PAGE 

JSR 
BCC 
CMP 
BNE 
JSR 
BCS 
LDA 
CMP 
BNE 
LDY 
LDA 
BPL 
LDA 
EQU 
RTS 
LDY 
LDA 



BKBITFLG 
INFTABL, Y 
SETINF2 
(C.FILIST) , Y 
DFIL,X 

C.FILSTLN 

SETINF1X 

DREVISE 

C.FILSTLN 
#$F 

SINFEND 
#$B 

INFTABL, Y 
SINFEND 1 
(C.FILIST) , Y 
DFIL,X 

C.FILSTLN 

SETINF3 

DREVISE1 



BIT (USED BY DREVISE) 

GET INDEX INTO CORESPONDING ' D . ' TABLE 
BRANCH IF WE'VE REACHED STORAGE TYPE PARAMETER 



; HAS USER'S REQUEST BEEN SATISFIED? 
; NO, MOVE NEXT BYTE. 

; GO UPDATE DIRECTORY WITH CURRENT TIME. 

TEST TO SEE IF USER WANTS HIS TIME STAMP ADDED 
(LIST MUST BE AT LEAST $F BYTES LONG) 
NO PUT CURRENT TIME INSTEAD. 
MOVE IN THE NEXT GROUP OF BYTES 



SATISFACTION YET? 
NOPE, KEEP EM PUMPIN' 



; FOR TURNING OFF BACKUP BIT 



D . ATTR, D . FILID, D . AUXID, D . AUXID+1 

D.STOR+l+$80,D.EOF,D.EOF+l,D.EOF+2 ; (D.STOR=0 THUS D . STOR+1 WAS NECESSARY) 
$80, D. USAGE, D.USAGE+l,D.MODDT ; (THE $80 IS FOR THE FOURTH BYTE OF EOF) 
D . MODDT+1 , D .MODTM, D .MODTM+1, $FF ; TABLE ALWAYS ENDS IN $FF 



LOOKFILE 
RNAME0 
#BADPATH 
RNAMERR 
RENPATH 
RNAMERR 
WRKPATH 
PATHNML 
RNBADPTH 
#VCBSTAT 
(VCBPTR) , 
RNAMEVOL 
#FILBUSY 



#0 

(WRKPATH) , Y 



LOOK FOR SOURCE (ORIGINAL) FILE. 
BRANCH IF FOUND. 
TRYING TO RENAME A VOLUME? 
NO, RETURN OTHER ERROR. 
SYNTAX NEW NAME. 

; FIND OUT IF ONLY ROOTNAME FOR NEW NAME 

; NOT SINGLE NAME, RETURN ERROR! 

; TEST FOR OPEN FILES BEFORE CHANGING 

; BRANCH IF VOLUME NOT BUSY 



; (CARRY IS SET) 

; GET NEWNAME'S LENGTH. 
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015173 
015174 
015175 
015176 
015177 
015178 
015179 
015180 
015181 
015182 
015183 
015184 
015185 
015186 
015187 
015188 
015189 
015190 
015191 
015192 
015193 
015194 
015195 
015196 
015197 
015198 
015199 
015200 
015201 
015202 
015203 
015204 
015205 
015206 
015207 
015208 
015209 
015210 
015211 
015212 
015213 
015214 
015215 
015216 
015217 
015218 
015219 
015220 
015221 
015222 



RNMEVOL 



RNAMEO 



TSTSMROT 



RNAMERR 



TSTFNF1 



SVENEWID 



TAY 
ORA 
JSR 
BCS 
LDY 
LDA 
TAY 
LDA 
STA 
DEY 
BPL 
CLC 
RTS 

JSR 

BCS 

LDY 

LDA 

TAY 

LDA 

CMP 

BNE 

DEY 

BPL 

JSR 

BCS 

LDA 

SEC 

RTS 

PAGE 

CMP 

BNE 

LDX 

LDA 

STA 

DEX 

BPL 

JSR 

BCS 

JSR 

BCS 

JSR 

LDA 

BCS 

LDA 

AND 

BNE 

LDA 

SEC 

RTS 



#$F0 

MVROTNAM 

RNAMERR 

#0 

(WRKPATH) , Y 

(WRKPATH) , Y 
(VCBPTR) , Y 

RNMEVOL 



RENPATH 
RNAMERR 
#0 

(PATHNML) , Y 

(PATHNML) , Y 
(VCBPTR) , Y 
RNBADPTH 

TSTSMROT 
LOOKFILE 
TSTFNF1 
#DUPERR 



#FNFERR 
RNAMERR 
#2 

D.DEV,X 
NPATHDEV, X 

SVENEWID 

SETPATH 

RNAMERR 

FINDFILE 

RNAMERR 

T STOP EN 

#FILBUSY 

RNAMERR 

DFIL+D . ATTR 

#RENAMEN 

RNAME1 

#ACCSERR 



(ROOT FILE STORAGE TYPE) 
UPDATE ROOT DIRECTORY. 



; UPDATE VCB ALSO. 



; SET UP AND SYNTAX NEW NAME. 

; VERIFY THAT BOTH NAMES HAVE SAME ROOT. 



COMPARE NEWNAME'S ROOT NAME WITH 

OLD NAME'S VOLUME NAME. 

RETURN 'BADPATH' IF NOT SAME VOLUME. 

(TEST SAME 'ROT' ) 

TEST FOR DUPLICATE FILE NAME. 

BRANCH IF ERROR TO TEST FOR FILE NOT FOUND. 

TELL USER THAT NEW NAME ALREADY EXISTS. 



WAS IT A VALID FILE NOT FOUND? 
NO, RETURN OTHER ERROR CODE. 

NOW MOVE NEW NAME'S OWNERSHIP (DIRECTORY HEADER) I.D. 
THIS CONSISTS OF THE UNIT NUMBER, 
AND THE ADDRESS OF THE DIRECTORY THE FILE 
WASN'T FOUND IN. LOGIC BY NEGATION... 

; NOW SYNTAX THE PATHNAME OF THE FILE TO BE CHANGED. 

; GET ALL THE INFO ON THIS ONE. 

; DON'T ALLOW RENAME TO OCCUR IF FILE IS IN USE. 

; ANTICIPATE ERROR 

; TEST BIT THAT SAYS IT'S OK TO RENAME 

; BRANCH IF IT'S ALRIGHT TO RENAME. 
; OTHERWISE REPORT ILLEGAL ACCESS. 
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015223 
015224 
015225 
015226 
015227 
015228 
015229 
015230 
015231 
015232 
015233 
015234 
015235 
015236 
015237 
015238 
015239 
015240 
015241 
015242 
015243 
015244 
015245 
015246 
015247 
015248 
015249 
015250 
015251 
015252 
015253 
015254 
015255 
015256 
015257 
015258 
015259 
015260 
015261 
015262 
015263 
015264 
015265 
015266 
015267 
015268 
015269 
015270 
015271 
015272 



RNAME1 
SAMOWNR 



RNBADPTH 



RNAME2 



RNAME3 



RNAMDONE 



MVROTNAM 
MVHEDNAM 



LDX 
LDA 
CMP 
BEQ 
LDA 
SEC 
RTS 

DEX 

BPL 

JSR 

BCS 

TYA 

BEQ 

DEY 

LDA 

STA 

DEY 

BNE 

LDA 

AND 

TAX 

ORA 

STA 

CPX 

BNE 

PAGE 

LDA 

STA 

LDA 

STA 

JSR 

BCS 

LDY 

LDA 

TAY 

ORA 

JSR 

BCS 

JMP 



STA 
LDA 
STA 
DEY 
BNE 
JMP 



#2 

D.DEV,X 
NPATHDEV, X 
RNAME2 
#BADPATH 



SAMOWNR 
RENPATH 
RNAMERR 

RNBADPTH 

(WRKPATH) , Y 
DFIL+D . STOR, Y 

RNAME3 
DFIL+D. STOR 
#$F0 

(WRKPATH) , Y 
DFIL+D. STOR 
#DIRTYP*16 
RNAMDONE 

DFIL+D. FRST 

BLOKNML 

DFIL+D. FRST+1 

BLOKNMH 

RDGBUF 

RNAMERR 

#0 

(WRKPATH) , Y 

#HEDTYP*16 
MVROTNAM 
RNAMERR 
DREVISE1 



GBUF+4 
(WRKPATH) , Y 
GBUF+4, Y 

MVHEDNAM 
WRTGBUF 



; NOW TEST TO SEE IF NEW PATHNAME FITS IN THE 
; SAME DIRECTORY FILE. 



; TELL USER THAT PATHNAMES INCOMPATABLE . 



TEST ALL THREE BYTES. 

WELL... SINCE BOTH NAMES WOULD GO INTO THE 

DIRECTORY, RE-SYNTAX THE NEW NAME TO GET LOCAL NAME ADDRESS. 
(Y CONTAINS THE LOCAL NAME LENGTH+1) 

REPORT ERROR IF LENGTH INFO NOT IMMEDIATELY AVAILABLE. 
(REMOVE THE +1) 

MOVE LOCAL NAME TO DIR ENTRY WORKSPACE. 



; PRESERVE FILE STORAGE TYPE. 

; STRIP OFF OLD NAME LENGTH. 

; ADD IN NEW NAME'S LENGTH 

; THAT FILE MUST BE CHANGED ALSO. 

; BRANCH IF NOT DIRECTORY TYPE. 

; READ IN FIRST (HEADER) BLOCK OF SUB DIRECTORY 



REPORT ERRORS 

CHANGE THE HEADER'S NAME TO MATCH THE OWNER'S NEW NAME. 
GET LOCAL NAME LENGTH AGAIN 

; ASSUME IT'S A HEADER. 



; END BY UPDATING ALL PATH DIRECTORIES 



; WRITE CHANGED HEADER BLOCK. 
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015273 








015274 


RENPATH 


LDA 


C . NWPATH 


015275 




STA 


TPATH 


015276 




LDA 


C.NWPATH+1 


015277 




STA 


TPATH+1 


015278 




LDA 


SSNWPATH 


015279 




STA 


SISTPATH 


015280 




JMP 


SYNPATH 


015281 


* 






015282 


* 






015283 


DEALBLK 


LDY 


#0 


015284 


DALBLK1 


STY 


SAPTR 


015285 




LDA 


GBUF, Y 


015286 




CMP 


GBUF+$100, Y 


015287 




BNE 


DALBLK2 


015288 




CMP 


#0 


015289 




BEQ 


DALBLK3 


015290 


DALBLK2 


LDX 


GBUF+$100, Y 


015291 




JSR 


DEALLOC 


015292 




BCS 


DALBLKERR 


015293 




LDY 


SAPTR 


015294 


DALBLK3 


INY 




015295 




BNE 


DALBLK1 


015296 




CLC 




015297 


DALBLKERR 


RTS 




015298 








015299 


* 






015300 




PAGE 




015301 








015302 


DESTROY 


JSR 


FINDFILE 


015303 




BCS 


DESTERR 


015304 




JSR 


T STOP EN 


015305 




LDA 


TOTENT 


015306 




BEQ 


DSTROY1 


015307 




LDA 


#FILBUSY 


015308 




SEC 




015309 




RTS 




015310 








015311 


DSTROY1 


LDA 


#0 


015312 




STA 


REQL 


015313 




STA 


REQH 


015314 




JSR 


TSFRBLK 


015315 




BCC 


DSTROY2 


015316 




CMP 


#OVRERR 


015317 




SEC 




015318 




BNE 


DESTERR 


015319 








015320 


DSTROY2 


LDA 


DFIL+D . ATTR 


015321 




AND 


#DSTROYEN 


015322 




BNE 


DSTROY3 



; GET ADDRESS TO NEW PATHNAME. 

; SET UP FOR SYNTAXING ROUTINE (SYNPATH) . 

; (MOVE BYTE FOR SISTER PAGE, TOO.) 

; GO SYNTAX IT. (RETURNS LAST LOCAL NAME LENGTH IN Y) . 



BEGIN AT THE BEGINNING. 
SAVE CURRENT INDEX. 

GET ADDRESS (LOW) OF BLOCK TO BE DEALLOCATED. 
TEST FOR NUL BLOCK. 
BRANCH IF NOT NUL. 

SKIP IT IF NUL. 

GET THE REST OF THE BLOCK ADDRESS. 
FREE IT UP ON VOLUME BIT MAP. 
RETURN ANY ERROR. 

GET INDEX TO SAPLING LEVEL INDEX BLOCK AGAIN. 
POINT AT NEXT BLOCK ADDRESS. 
BRANCH IF MORE TO DEALLOCATE (OR TEST) . 
INDICATE NO ERROR. 



; LOOK FOR FILE TO BE WIPED OUT. 

; PASS BACK ANY ERROR. 

; IS THIS FILE OPEN? 

; BRANCH IF FILE NOT OPEN. 

; INFORM USER THAT FILE CAN'T BE DESTORYED AT THIS TIME. 



; FORCE PROPER FREE COUNT IN VOLUME. 

; (NO DISK ACCESS OCCURS IF ALREADY PROPER) 



; WAS IT JUST A FULL DISK? 

; NOPE, REPORT ERROR. 

; MAKE SURE IT'S OK TO DESTROY THIS FILE. 

; BRANCH IF OK. 
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015323 
015324 
015325 
015326 
015327 
015328 
015329 
015330 
015331 
015332 
015333 
015334 
015335 
015336 
015337 
015338 
015339 
015340 
015341 
015342 
015343 
015344 
015345 
015346 
015347 
015348 
015349 
015350 
015351 
015352 
015353 
015354 
015355 
015356 
015357 
015358 
015359 
015360 
015361 
015362 
015363 
015364 
015365 
015366 
015367 
015368 
015369 
015370 
015371 
015372 



DSTROY3 



DSTREE 



DESTERR 
DSTSAP 



DSTRE2 
DSTNXT 



DSTRE3 



DSTRE4 



LDA 
JSR 

JSR 
BCS 
LDA 
AND 
CMP 
BCC 
JMP 

JSR 
BCS 
LDA 
AND 
CMP 
BNE 
JSR 
BCC 
RTS 

CMP 
BNE 
JSR 
LDA 
LDY 
STA 
INC 
LDA 
STA 
DEC 
LDY 
STY 
LDA 
INC 
CMP 
BNE 
CMP 
BEQ 
CLC 
STA 
LDA 
STA 
DEC 
BCS 
JSR 
BCS 
JSR 
BCS 
LDY 



#ACCSERR 
SYSERR 

TWRPROT1 
DESTERR 
DFIL+D. STOR 
#$F0 

#TRETYP+1*$10 

DSTREE 

DSTDIR 

GTTINDX 
DESTERR 
DFIL+D. STOR 
#$F0 

#TRETYP*$10 
DSTSAP 
RDFRST 
DSTRE2 



#SAPTYP*$10 
DSTLAST 
ZTMPIDX 
DFIL+D. FRST 
#0 

(TINDX) , Y 
TINDX+1 
DFIL+D. FRST+1 

(TINDX) , Y 
TINDX+1 
#0 

TREPTR 

(TINDX) , Y 
TINDX+1 

(TINDX) , Y 
DSTRE3 
#0 

DSTRE4 

BLOKNML 
(TINDX) , Y 
BLOKNMH 
TINDX+1 
DSTNXT1 
RDGBUF 
DESTERR 
DEALBLK 
DESTERR 
TREPTR 



TELL USER IT'S NOT KOSHER. 
(RETURNS TO CALLER OF DE STORY) 

BEFORE GOING THRU DEALLOCATION, 
TEST FOR WRITE PROTECTED HARDWARE. 
FIND OUT WHICH STORAGE TYPE. 
STRIP OFF NAME LENGTH. 
IS IT A SEED, SAPLING, OR TREE? 
BRANCH IF IT IS. 

OTHERWISE TEST FOR DIRECTORY DESTROY. 

; GET A BIT MAP BUFFER AND TEMPORARY INDEX BUFFER. 

; GET STORAGE TYPE AGAIN 

IS THIS A TREE (FULL 2 -LEVEL) ? 
NO, TEST FOR SAPLING. 
READ IN ROOT INDEX FOR THIS FILE. 
BRANCH IF ALL IS WELL. 
OTHERWISE RETURN ERROR. 

IS IT A SAPLING 

NO, JUST DEALLOCATE FIRST (AND ONLY) BLOCK. 
CLEAR OUT TEMPORARY INDEX BUFFER. 
MAKE THIS SAP LOOK LIKE A TREE... 

THIS IS DONE BY PLACING THE FIRST BLOCK ADDRESS 
IN THE TEMP (TOP) INDEX BUFFER AS 

A SUB INDEX WOULD APPEAR. 



BEGIN SCAN OF TOP LEVEL INDEX AT ZERO. 
SAVE POINTER TO TREE LEVEL. 
GET BLOCK ADDRESS OF A SUB INDEX BLOCK 
(TEST FOR NUL BLOCK) 

BRANCH IF WE'VE GOT AN BLOCK TO DEALLOCATE. 
IS ENTIRE ADDRESS ZERO? 
YES, DO NEXT. (CARRY SET) 

INDICATE THERE IS A BLOCK OF INDEXES TO FREE UP. 

; GET HI ADDRESS TOO. 

(RESTORE PROPER ADDRESS FOR BUFFER) 
BRANCH IF NO SUB INDEX. 

USE GENERAL BUFFER FOR SUB INDEX BUFFER. 
; GO FREE UP BLOCKS IN SUB INDEX 
; AND FREE UP SUB INDEX BLOCK TOO. 
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015373 




INC 


TINDX+1 




015374 




LDA 


(TINDX) , Y 




015375 




TAX 






015376 




DEC 


TINDX+1 




015377 




LDA 


(TINDX) , Y 




015378 




JSR 


DEALLOC 




015379 




BCS 


DESTERR 




015380 




LDY 


TREPTR 




015381 


DSTNXT1 


INY 




HAVE ALL SUB INDEXES BEEN LOCATED? 


015382 




BNE 


DSTNXT 


NO, DO NEXT. . . 


015383 


DSTLAST 


LDA 


DFIL+D . FRST 


DEALLOCATE FIRST BLCOK OF FILE. 


015384 




LDX 


DFIL+D . FRST+1 




015385 




JSR 


DEALLOC 




015386 




BCS 


DESTERR 




015387 




LDA 


#0 


UPDATE DIRECTORY TO FREE ENTRY SPACE. 


015388 




STA 


DFIL+D. STOR 




015389 




CMP 


H . FCNT 


FILE ENTRY WRAP? 


015390 




BNE 


DST1 


BRANCH IF NO CARRY ADJUSTMENT 


015391 




DEC 


H.FCNT+1 


TAKE CARRY FROM HIGH BYTE OF FILE ENTRIES 


015392 


DST1 


DEC 


H . FCNT 


MARK HEADER WITH ONE LESS FILE 


015393 




LDX 


BMTAB 


UPDATE (LAST) BITMAP. 


015394 




JSR 


BMAPUP 




015395 




BCS 


DESTERR 




015396 




LDY 


#VCBTFRE 




015397 




LDA 


DFIL+D. USAGE 




015398 




ADC 


(VCBPTR) , Y 




015399 




STA 


(VCBPTR) , Y 


UPDATE CURRENT FREE BLOCK COUNT. 


015400 




INY 






015401 




LDA 


DFIL+D. USAGE+1 




015402 




ADC 


(VCBPTR) , Y 




015403 




STA 


(VCBPTR) , Y 




015404 




LDA 


#0 


FORCE RESCAN FROM FIRST BITMAP 


015405 




LDY 


#VCBCMAP 




015406 




STA 


(VCBPTR) , Y 




015407 




JMP 


DREVISE 


UPDATE DIRECTORY LAST... 


015408 


* 








015409 




PAGE 






015410 










015411 


DSTDIR 


CMP 


#DIRTYP*16 


IS THIS A DIRECTORY FILE? 


015412 




BEQ 


DSDIR1 


YES, PROCEED. 


015413 




LDA 


#CPTERR 


FILE IS NOT COMPATABLE. 


015414 




JSR 


SYSERR 


GIVE UP. 



015415 * 

015416 DSDIR1 
015417 
015418 
015419 
015420 
015421 
015422 



JSR 
BCS 
LDA 
STA 
LDA 
STA 
JSR 



FNDBMAP 

DSDIRERR 

DFIL+D. FRST 

BLOKNML 

DFIL+D. FRST+1 

BLOKNMH 

RDGBUF 



; MAKE SURE A BUFFER IS AVAILABLE FOR THE BITMAP. 
; READ IN FIRST BLOCK OF DIRECTORY INTO GBUF . 
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015423 




BCS 


DSDIRERR 




015424 




LDA 


GBUF+HCENT+4 


; FIND OUT IF ANY FILES EXIST ON THIS DIRECTORY. 


015425 




BNE 


DSDIRACC 


; BRANCH IF ANY EXIST. 


015426 




LDA 


GBUF+HCENT+5 




015427 




BEQ 


DSDIR2 




015428 


DSDIRACC 


LDA 


#ACCSERR 




015429 




JSR 


SYSERR 




015430 










015431 


DSDIR2 


LDA 


GBUF+2 


; GET FORWARD LINK. 


015432 




CMP 


GBUF+3 


; TEST FOR NO LINK. 


015433 




BNE 


DSDIR3 




015434 




CMP 


#0 




015435 




BEQ 


DSTLAST 


; IF NO LINK, THEN FINISHED. 


015436 


DSDIR3 


LDX 


GBUF+3 




015437 




JSR 


DEALLOC 


; FREE THIS BLOCK. 


015438 




BCS 


DSDIRERR 




015439 




LDA 


GBUF+2 




015440 




STA 


BLOKNML 




015441 




LDA 


GBUF+3 




015442 




STA 


BLOKNMH 


; READ IN LINKED BLOCK. 


015443 




JSR 


RDGBUF 




015444 




BCC 


DSDIR2 


; LOOP UNTIL ALL ARE FREED. 


015445 


DSDIRERR 


RTS 






015446 










015447 


* 








015448 




PAGE 






015449 


WORKSPC 


EQU 


★ 




015450 


V. STATUS 


DS 


1 


; VOLUME STATUS, INCLUDES 'ACTIVE' IN BIT 7 


015451 


H.CREDT 


DS 


2 


; DIRECTORY CREATION DATE 


015452 




DS 


2 


; DIRECTORY CREATION TIME 


015453 




DS 


1 


; VERSION UNDER WHICH THIS DIRECTORY WAS CREATED 


015454 




DS 


1 


; EARLIEST VERSION THAT IT'S COMPATABLE WITH 


015455 


H . ATTR 


DS 


1 


; ATTRIBUTES (PROTECT BIT, ETC.) 


015456 


H . ENTLN 


DS 


1 


; LENGTH OF EACH ENTRY IN THIS DIRECTORY. 


015457 


H . MAXENT 


DS 


1 


; MAXIMUM NUMBER OF ENTRIES PER BLOCK 


015458 


H . FCNT 


DS 


2 


; CURRENT NUMBER OF FILES IN THIS DIRECTORY 


015459 




DS 


2 


; ADDRESS OF FIRST ALLOCATION BIT MAP 


015460 




DS 


2 


; TOTAL NUMBER OF BLOCKS ON THIS UNIT 


015461 




DS 


5 


; (FOR FUTURE EXPANSION) 


015462 










015463 


D.DEV 


DS 


1 


; DEVICE NUMBER OF THIS DIRECTORY ENTRY 


015464 


D . HEAD 


DS 


2 


; ADDRESS OF <SUB> DIRECTORY HEADER 


015465 


D . ENTBLK 


DS 


2 


; ADDRESS OF BLOCK WHICH CONTAINS THIS ENTRY 


015466 


D . ENTNUM 


DS 


1 


; ENTRY NUMBER WITHIN BLOCK. 


015467 


DFIL 


EQU 






015468 


D . STOR 


EQU 


*-DFIL 


; STORAGE TYPE * 16 + FILE NAME LENGTH 


015469 




DS 


1 




015470 


; *-DFIL ; 


FILE NAME 






015471 




DS 


15 




015472 


D.FILID 


EQU 


*-DFIL 


; USER'S IDENTIFICATION BYTE 
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015473 








DS 


1 




015474 


D 


FRST 




EQU 


*-DFIL 


; FIRST BLOCK OF FILE 


015475 








DS 


2 




015476 


D 


USAGE 




EQU 


*-DFIL 


; NUMBER OF BLOCKS CURRENTLY ALLOCATED TO THIS FILE 


015477 








DS 


2 




015478 


D 


EOF 




EQU 


*-DFIL 


; CURRENT END OF FILE MARKER 


015479 








DS 


3 




015480 


D 


CREDT 




EQU 


*-DFIL 


; DATE OF FILE'S CREATION 


015481 








DS 


2 




015482 




*-DFIL 


; TIME 


OF FILE 


' S CREATION 




015483 








DS 


2 




015484 


. 


EQU *- 


-DFIL ; 


SOS VERSION THAT CREATED THIS 


FILE 


015485 








DS 


1 




015486 


D 


COMP 




EQU 


*-DFIL 


; BACKWARD VERSION COMPATABILTY 


015487 








DS 


1 




015488 


D 


ATTR 




EQU 


*-DFIL 


; 'PROTECT', READ/WRITE 'ENABLE' ETC. 


015489 








DS 


1 




015490 


D 


AUXID 




EQU 


*-DFIL 


; USER AUXILLARY I DENT I FACAT ION 


015491 








DS 


2 




015492 


D 


MODDT 




EQU 


*-DFIL 


; FILE'S LAST MODIFICATION DATE 


015493 








DS 


2 




015494 


D 


MODTM 




EQU 


*-DFIL 


; FILE'S LAST MODIFICATION TIME 


015495 








DS 


2 




015496 


D 


DHDR 




EQU 


*-DFIL 


; HEADER BLOCK ADDRESS OF FILE'S DIRECTORY 


015497 








DS 


2 




015498 


* 












015499 


CMDADR 




DS 


2 




015500 


SCRTCH 




DS 


13 


; SCRATCH AREA FOR ALLOCATION ADDRESS CONVERSION 


015501 


OLDEOF 




DS 


3 


; TEMP USED IN W/R 


015502 


OLDMARK 




DS 


3 


; USED BY 'RDPOSN' AND 'WRITE' 


015503 


SCRHIGH 




EQU 


<SCRTCH 


; AND DEVICE NUMBERS FROM BOB'S CODE. 


015504 


* 












015505 








CHN 


SWAPOUT/IN, 4, 2 




015506 














015507 


************************************************************************* 


015508 


* 


END OF 


APPLE 


/// SOS 


1.3 SOURCE CODE FILE: 


DESTROY 


015509 


************************************************************************* 


015510 














015511 
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015512 
015513 
015514 
015515 
015516 
015517 
015518 
015519 
015520 
015521 
015522 
015523 
015524 
015525 
015526 
015527 
015528 
015529 
015530 
015531 
015532 
015533 
015534 
015535 
015536 
015537 
015538 
015539 
015540 
015541 
015542 
015543 
015544 
015545 
015546 
015547 
015548 
015549 
015550 
015551 
015552 
015553 
015554 
015555 
015556 
015557 
015558 
015559 
015560 



DOCUMENT : SOS1 . 3 . 4of 5 . FOUR : SOS . POSN . OPEN . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: POSN. OPEN 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



GETMARK 
GMARK1 



MOVMRK 



SETMARK 

SMARK1 
CMPEOF 



ERRMEOF 



ADJMARK 



PAGE 

LDY 

LDA 

PHA 

INY 

CPY 

BNE 

LDA 

LDY 

PHA 

PLA 

STA 

DEY 

BPL 

CLC 

RTS 

JSR 
BCC 
RTS 
LDX 
LDY 
LDA 
CMP 
BCC 
BNE 
DEY 
DEX 
BPL 
BMI 
LDA 
RTS 

LDA 
BNE 
LDX 
LDY 
LDA 
LSR 
BCS 



#FCBMARK 
(FCBPTR) , Y 



#FCBMARK+3 

GMARK1 

#0 

#3 



(C.MRKPTR) , Y 
MOVMRK 



ADJMARK 
SMARK1 

#2 

#FCBEOF+2 
TPOSLL,X 
(FCBPTR) , Y 
CKSAMBLK 
ERRMEOF 



CMPEOF 

CKSAMBLK 

#POSNERR 



C.MARK+3 

ERRPOSN 

#$FD 

#FCBMARK 
C . BASE 
A 

SUBMARK 



MOVE CURRENT POSITION MARKER TO 
USER'S 4 BYTE BUFFER POINTED TO BY 
C.MRKPTR IN SOS ZPAGE 

USE STACK AS TEMPORARY STORAGE FOR THREE BYTE 
POSITION VALUE. 

THE FOURTH (HIGHEST ORDER) BYTE IS ALWAYS ZERO. 



MOVE TO USER'S SPACE 

IS THERE ANOTHER TO PULL FROM STACK? 
YES, GET NEXT LOWER BYTE FROM STACK. 
INDICATE NO ERROR. 



MAKE ADJUSTMENTS TO REQUESTED MARK ACCORDING TO BASE. 
BRANCH IF ADJUSTMENT WAS VALID. 

NOW COMPARE END OF FILE WITH NEW 
POSITION TO BE SURE IT'S WITHIN 
THE BOUNDS OF CURRENTLY DEFINED 
LIMITS. 

BRANCH IF MARK<EOF 

RETURN ERROR IF MARK>= EOF 



BRANCH ALWAYS 

TELL USER MARK IS OUT OF RANGE. 
(CARRY IS SET TO INDICATE ERROR) 

MAKE SURE FOURTH BYTE OF DISPLACE IS ZIP 
BRANCH TO ERR IF NOT 

ANTICIPATE OTHER THAN BASE OF ZERO 

FURTHER ASSUME IT'S A BASE OFFSET FROM CURRENT POSITION 
NOW FIND OUT WHAT IT REALLY IS. 

(CARRY SET=SUBTRACT, NON ZERO REMAINDER= OFFSET FROM EOF) 



Apple /// Sophisticated Operating System (SOS) 1.3 Source Code Listing » PTC 8/ 2001 » Page 336 of 391 



Apple/// Computer I nformation 



015561 
015562 
015563 
015564 
015565 
015566 
015567 
015568 
015569 
015570 
015571 
015572 
015573 
015574 
015575 
015576 
015577 
015578 
015579 
015580 
015581 
015582 
015583 
015584 
015585 
015586 
015587 
015588 
015589 
015590 
015591 
015592 
015593 
015594 
015595 
015596 
015597 
015598 
015599 
015600 
015601 
015602 
015603 
015604 
015605 
015606 
015607 
015608 
015609 
015610 



ADDPOSN 



SUBMARK 
SUBPOSN 



ERRPOSN 



ADJMRK 
ADJMRK0 



AD JMRK1 



RDPOSN 
CKSAMBLK 



BEQ 
LDA 
ADC 
STA 
INY 
INX 
BNE 
BCS 
BEQ 

PAGE 

BNE 

LDY 

LDA 

SBC 

STA 

INY 

INX 

BNE 

BCS 

LDA 

SEC 

RTS 

LDX 
LDA 
STA 
DEX 
BPL 
CLC 
RTS 



EQU 
EQU 
LDY 
LDA 
AND 
STA 
INY 
LDA 
SEC 
SBC 
STA 
BCC 
CMP 
BCS 
LDA 
CMP 
BNE 



ADJMRK 
(FCBPTR) , Y 
C.MARK+3,X 
>TPOSLL-$FD,X 



ADDPOSN 
ERRPOSN 
ADJMRK1 



SUBPOSN 
#FCBEOF 
(FCBPTR) , Y 
C.MARK+3,X 
>TPOSLL-$FD,X 



SUBPOSN 
ADJMRK1 
#POSNERR 



#2 

C.MARK, X 
TPOSLL,X 

ADJMRK0 



#FCBMARK+1 
(FCBPTR) , Y 
#$FE 
SCRTCH 

TPOSLH 

SCRTCH 
SCRTCH 
TYPMARK 
#2 

TYPMARK 
TPOSHI 
(FCBPTR) , Y 
TYPMARK 



BRANCH IF MARK IS FROM BEGINNING OF FILE 
ADD USER QUANTITY TO CURRENT 
POSITION TO FORM NEW POSITION. 

(NOTE: ZERO PAGE REFERENCE WRAPS AROUND IN Z-PAGE) 



ADD ALL THREE BYTES 
BRANCH IF OVERFLOW 
BRANCH ALWAYS 



BRANCH IF IT'S AN OFFSET FROM CURRENT POSITION 

OTHERWISE ASSUME OFFSET FROM END OF FILE. 

SUBTRACT USER QUANTITY TO FORM 

NEW POSITION. IF FINAL 

RESULT IS L.T. ZERO, THEN REPORT 

POSITION ERROR. . . 



; BRANCH IF LEGAL POSITION CALCULATED. 
; INDICATE ERROR 



; FIRST SET UP POSITION TEMPS USED 
; BY BOTH POSITION ROUTINES 



; NO ERRORS 



FIRST TEST TO SEE IF NEW POSITION IS 
WITHIN THE SAME (CURRENT) DATA BLOCK. 



BUMP TO ACCESS HIGHEST ORDER ADDRESS BYTE 
GET MIDDLE BYTE OF NEW POSITION 



BRANCH IF POSSIBLY L.T. CURRENT POSITION 

MUST BE WITHIN 512 BYTES OF BEGINNING OF CURRENT 

NOW MAKE SURE WERE TALKIN ABOUT 
THE SAME 64K CHUNK! 
BRANCH IF WE AREN'T. 
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015611 
015612 
015613 
015614 
015615 
015616 
015617 
015618 
015619 
015620 
015621 
015622 
015623 
015624 
015625 
015626 
015627 
015628 
015629 
015630 
015631 
015632 
015633 
015634 
015635 
015636 
015637 
015638 
015639 
015640 
015641 
015642 
015643 
015644 
015645 
015646 
015647 
015648 
015649 
015650 
015651 
015652 
015653 
015654 
015655 
015656 
015657 
015658 
015659 
015660 



TYPMARK 



CHKDSKSW 



CHKDSKS1 



FERRTYP 



TREPOS 



POSNEW1 



JMP 

LDY 
LDA 
BEQ 
CMP 
BCC 
JMP 

EQU 
LDY 
LDA 
STA 
JSR 
LDA 
BEQ 
JSR 
BCC 
JSR 
BCC 
LDA 
RTS 

LDY 
STA 
LDA 
SEC 
RTS 

PAGE 

LDY 

LDA 

STA 

LDY 

LDA 

AND 

BEQ 

JSR 

BCS 

LDY 
LDA 
AND 
STA 
LDA 
SEC 
SBC 
BCC 
CMP 
BCS 



SVMARK 

#FCBSTYP 
(FCBPTR) , Y 
FERRTYP 
#4 

CHKDSKSW 
DIRMARK 



#FCBDEVN 
(FCBPTR) , Y 
DEVNUM 
TWRPROT1 
DSWGLOB 
TREPOS 
VERFYVOL 
TREPOS 
USRREQ 
CHKDSKS1 
#VNFERR 



#FCBREFN 
(FCBPTR) , Y 
#BADREFNUM 



#FCBSTYP 
(FCBPTR) , Y 

LEVELS 

#FCBSTAT 
(FCBPTR) , Y 

#DATMOD 

POSNEW1 

WFCBDAT 

POSERR 

#FCBMARK+2 
(FCBPTR) , Y 
#$FE 
SCRTCH 
TPOSHI 

SCRTCH 

POSNEW2 

#2 

POSNEW2 



; IF WE IS, ADJUST FCB AND POSPTR AND RETURN. 

NOW FIND OUT WHICH TYPE 
OF FILE WE'RE POSITIONING ON. 

THERE IS NO SUCH TYPE AS ZERO, BRANCH NEVER! 
IS IT A TREE CLASS FILE? 
YES, GO POSITION 
NO, TEST FOR DIRECTORY TYPE. 

; MAKE SURE S/HE HASN'T MOVED THE VOLUME 



MAKE SURE DEVICE NUMBER PARM IS CURRENT 
PASSES DEVNUM (CHECK DISK SWITCH) 
DISK SWITCH GLOBAL 
BRANCH IF NONE DETECTED 
MATCHES VCBPTR VS. DEVNUM 
BRANCH IF DISK HASN'T SWITCHED 
POLITELY ASK USER TO MOUNT 
SAID HE DID, CHECK AGAIN 
REFUSES TO MOUNT 



; CLEAR ILLEGALLY TYPED FCB ENTRY 
; TELL EM THERE IS NO SUCH FILE 



USE STORAGE TYPE AS NUMBER 

OF LEVELS (SINCE 1=SEED, 2=SAPLING, AND 3=TREE) 

SINCE IT'S A DIFFERENT DATA 

BLOCK, MUST NOT FORGET PREVIOUS DATA. 

THEREFORE, SEE IF PREVIOUS DATA WAS MODIFIED 

THEN DISK MUST BE UPDATED. 

GO WRITE CURRENT DATA BLOCK. 

RETURN ANY ERROR ENCOUNTERED. 

TEST TO SEE IF CURRENT 
INDEX BLOCK IS GOING TO BE USABLE. . . 
OR IN OTHER WORDS- 
IS NEW POSITION WITHIN 128K OF THE BEGINNING 
OF CURRENT SAPLING LEVEL CHUNK. 



BRANCH IF A NEW INDEX BLOCK IS ALSO NEEDED 

NEW POSITION IS > THAN BEGINING OF OLD. IS IT WITHIN 128K? 
BRANCH IF NOT. 
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015661 




LDX 


LEVELS 


IS THE FILE WE'RE DEALING WITH A SEED? 


015662 




DEX 






015663 




BNE 


DATLEVEL 


NO, USE CURRENT INDEXES. 


015664 


TSTINY 


LDA 


TPOSLH 


IS NEW POSITION UNDER 512? 


015665 




LSR 


A 




015666 




ORA 


TPOSHI 




015667 




BNE 


NOIDXDAT 


NO, MARK BOTH DATA AND INDEX BLOCK AS UN-ALLOCATED. 


015668 




LDY 


#FCBFRST 




015669 




LDA 


(FCBPTR) , Y 


FIRST BLOCK IS ONLY BLOCK AND IT'S DATA! 


015670 




STA 


BLOKNML 




015671 




INY 






015672 




LDA 


(FCBPTR) , Y 


(HIGH BLOCK ADDRESS) 


015673 




JMP 


RNEWPOS 


GO READ IN BLOCK AND SET APPROPRIATE STATUSES. 


015674 


* 








015675 




PAGE 






015676 


POSNEW2 


LDY 


#FCBSTAT 


GOTA CHECK TO SEE IF PREVIOUS 


015677 




LDA 


(FCBPTR) , Y 


INDEX BLOCK WAS MODIFIED. 


015678 




AND 


#IDXMOD 




015679 




BEQ 


POSNIDX 


READ IN OVER IT IF CURRENT IS UP TO DATE. 


015680 




JSR 


WFCBIDX 


GO UPDATE INDEX ON DISK (BLOCK ADDR IN FCB) 


015681 




BCS 


POSERR 




015682 


POSNIDX 


LDX 


LEVELS 


BEFORE READING IN TOP INDEX, CHECK TO BE SURE 


015683 




CPX 


#3 


THAT THERE IS A TOP INDEX... 


015684 




BEQ 


POSINDEX 


BRANCH IF FILE IS FULL BLOWN TREE. 


015685 




LDA 


TPOSHI 


IS NEW POSITION WITHIN RANGE OF A 


015686 




LSR 


A 


SAPLING FILE (L.T. 128K) ? 


015687 




PHP 




ANTICIPATE NO GOOD. 


015688 




LDA 


#TOPALC+IDXALC+DATALC 


; (TO INDICATE NO LEVEL IS ALLOCATED FOR NEW POSITION.) 


015689 




PLP 




Z FLAG TELLS ALL . . . 


015690 




BNE 


NODATA 


GO MARK 'EM ALL DUMMY. 


015691 




JSR 


CLRSTATS 


GO CLEAR STATUS BITS 0,1,2 (INDEX/DATA ALLOC STATUS) . 


015692 




DEX 




(UNAFFECTED SINCE LOADED ABOVE) CHECK FOR SEED 


015693 




BEQ 


TSTINY 


IF SEED, CHECK FOR POSITION L.T. 512... 


015694 




JSR 


RFCBFST 


GO GET ONLY INDEX BLOCK 


015695 




BCS 


POSERR 


BRANCH IF ERROR 


015696 




LDY 


#FCBIDXB 


SAVE NEWLY LOADED INDEX BLOCK'S ADDRESS 


015697 




LDA 


BLOKNML 




015698 




STA 


(FCBPTR) , Y 




015699 




INY 






015700 




LDA 


BLOKNMH 




015701 




STA 


(FCBPTR) , Y 




015702 




BCC 


DATLEVEL 


BRANCH ALWAYS . . . 


015703 


POSERR 


SEC 






015704 




RTS 






015705 


* 








015706 


POS INDEX 


JSR 


CLRSTATS 


CLEAR ALL ALLOCATION REQUIREMENTS FOR PREVIOUS POSITION 


015707 




JSR 


RFCBFST 


GET HIGHEST LEVEL INDEX BLOCK. 


015708 




BCS 


POSERR 




015709 




LDA 


TPOSHI 


THEN TEST FOR A SAP LEVEL INDEX BLOCK 


015710 




LSR 


A 
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DATLEVEL 



015711 
015712 
015713 
015714 
015715 
015716 
015717 
015718 

015719 NOIDXDAT 
015720 
015721 * 
015722 

015723 SAPLEVEL 
015724 
015725 
015726 
015727 
015728 
015729 
015730 
015731 
015732 
015733 
015734 
015735 
015736 
015737 
015738 
015739 
015740 
015741 
015742 
015743 
015744 
015745 
015746 
015747 
015748 
015749 
015750 
015751 
015752 
015753 
015754 
015755 
015756 
015757 
015758 

015759 * 

015760 ZIPDATA 



NODATA 



ZIPIDX 



ZPIDX1 



TAY 
LDA 
INC 
CMP 
BNE 
CMP 
BNE 
DEC 
LDA 
JMP 

PAGE 

STA 

LDA 

STA 

DEC 

JSR 

BCS 

LDA 

LSR 

LDA 

ROR 

TAY 

LDA 

INC 

CMP 

BNE 

CMP 

BNE 

LDA 

DEC 

LDY 
ORA 
STA 
LSR 
LSR 
JSR 
BCC 
STA 
INY 
BNE 
INC 
STA 
INY 
BNE 
DEC 
JMP 

LDA 



(TINDX) , Y 
TINDX+1 

(TINDX) , Y 
SAPLEVEL 
#0 

SAPLEVEL 
TINDX+1 

#IDXALC+DATALC 
NODATA 



BLOKNML 
(TINDX) , Y 
BLOKNMH 
TINDX+1 
RFCBIDX 
POSERR 
TPOSHI 
A 

TPOSLH 

A 

(TINDX) , Y 
TINDX+1 

(TINDX) , Y 
POSNEW3 
#0 

POSNEW3 
#DATALC 
TINDX+1 

#FCBSTAT 
(FCBPTR) , Y 
(FCBPTR) , Y 

A 
A 

ZIPDATA 
SVMARK 
(TINDX) , Y 

ZIPIDX 
TINDX+1 
(TINDX) , Y 

ZPIDX1 

TINDX+1 

SVMARK 



; (BOTH HI AND LO WILL BE ZERO IF NO INDEX EXISTS) 

; ARE BOTH BYTES ZERO? 

; DON'T LEAVE WRONG POINTERS LAYING AROUND! 

; SHOW NEITHER INDEX OR DATA BLOCK ALLOCATED. 



; READ IN NEXT LOWER INDEX BLOCK 
; (HI ADDRESS) 



; READ IN SAPLING LEVEL 

; NOW GET BLOCK ADDRESS OF DATA BLOCK 
; ( IF THERE IS ONE ) 



; DATA BLOCK ADDRESS LOW 



; SHOW DATA BLOCK AS NEVER BEEN ALLOCATED 



SET STATUS TO SHOW WHATS MISSIN' 

THROW AWAY BIT THAT SAYS DATA BLOCK UN-ALLOCATED 
CUZ WE KNOW THAT. CARRY NOW INDICATES IF INDEX BLOCK 
ALSO IS INVALID AND NEEDS TO BE ZEROED (CARRY UNDISTURBED) 
BRANCH IF INDEX BLOCK DOESN'T NEED ZIPPIN. 



#0 



; RESTORE PROPER ADDRESS 



; ALSO IS INVALID AND NEEDS TO BE ZEROED. 
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015761 
015762 
015763 
015764 
015765 
015766 
015767 
015768 
015769 
015770 
015771 
015772 
015773 
015774 
015775 
015776 
015777 
015778 
015779 
015780 
015781 
015782 
015783 
015784 
015785 
015786 
015787 
015788 
015789 
015790 
015791 
015792 
015793 
015794 
015795 
015796 
015797 
015798 
015799 
015800 
015801 
015802 
015803 
015804 
015805 
015806 
015807 
015808 
015809 
015810 



ZIPDATO 



ZPDAT1 



POSNEW3 
RNEWPOS 

SVMARK 
SVMRK1 



PRITZ 



CLRSTATS 



TAY 
STA 
INY 
BNE 
INC 
STA 
INY 
BNE 
DEC 
RTS 

PAGE 

STA 
LDA 
DEC 
STA 
JSR 
BCS 
JSR 
LDY 
LDX 
LDA 
STA 
LDA 
STA 
DEY 
DEX 
BPL 

CLC 
LDA 
STA 
LDA 
AND 
ADC 
STA 
LDA 
STA 
RTS 
SEC 
RTS 



LDY 
LDA 
AND 
STA 
RTS 



(DATPTR) , Y 

ZIPDATO 
DATPTR+1 
(DATPTR) , Y 

ZPDAT1 
DATPTR+1 



BLOKNML 
(TINDX) , Y 
TINDX+1 
BLOKNMH 
RFCBDAT 
PRITZ 
CLRSTATS 
#FCBMARK+2 
#2 

(FCBPTR) , Y 
OLDMARK-FCBMARK, Y 
TPOSLL,X 

(FCBPTR) , Y 



SVMRK1 



DATPTR 
POSPTR 
TPOSLH 
#1 

DATPTR+1 
POSPTR+1 
SISDATP 
SISPOSP 



; ZERO OUT DATA AREA 



GET DATA BLOCK OF NEW POSITION 
(HI ADDRESS) 



RETURN ANY ERROR 

SHOW WHOLE CHAIN IS ALLOCATED 

UPDATE POSITION IN FILE CONTROL BLOCK 

REMEMBER OLDMARK IN CASE 
CALLING ROUTINE FAILS LATER 



MOVE 3 BYTE POSITION MARKER 



LAST, BUT NOT LEAST, SET UP 

INDIRECT ADDRESS TO BUFFER PAGE POINTED 

TO BY THE CURRENT POSITION MARKER. 



SISTER PAGE BYTE ALSO. 

CARRY SHOULD ALWAYS BE CLEAR 

RANDOM ERROR 

RETURN 



#FCBSTAT ; CLEAR ALLOCATION STATES FOR DATA BLOCK 

(FCBPTR), Y ; AND BOTH LEVELS OF INDEXES. 

# $FF-TOPALC- IDXALC-DATALC 

(FCBPTR), Y ; THIS SAYS THAT EITHER THEY EXIST CURRENTLY 

; OR THAT THEY'RE UNNECESSARY FOR CURRENT POSITION. 
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015811 




PAGE 












015812 


















015813 


DIRMARK CMP 




#DIRTYP 








IS IT A DIRECTORY? 


015814 




BEQ 




DIRPOS 








YES. . . 


015815 




LDA 




#CPTERR 








NO, THERE IS A COMPATABL I T Y PROBLEM- 


015816 




JSR 




SYSERR 








THE DAMN THING SHOULD OF NEVER BEEN OPENED! 


015817 


* 
















015818 


DIRPOS LDA 




SCRTCH 








RECOVER RESULTS OF PREVIOUS SUBTRACTION. 


015819 




LSR 




A 








USE DIFFERENCE AS COUNTER AS TO HOW MANY 


015820 




STA 




CNTENT 








BLOCKS MUST BE READ TO GET TO NEW POSITION. 


015821 




LDY 




#FCBMARK+1 








TEST FOR POSITION DIRECTION. 


015822 




LDA 




(FCBPTR) , Y 










015823 




CMP 




TPOSLH 








CARRY INDICATES DIRECTION... 


015824 




BCC 




DIRFWRD 








IF SET, POSITION FORWARD. 


015825 


DIRVRSE LDY 




#0 








OTHERWISE, READ DIRECTORY FILE IN REVERSE ORDER. 


015826 




JSR 




DIRPOS1 








READ PREVIOUS BLOCK. 


015827 




BCS 




DRPOSERR 








BRANCH IF ANYTHING GOES WRONG. 


015828 




INC 




CNTENT 








COUNT UP TO 128 


015829 




BPL 




DIRVRSE 








LOOP IF THERE IS MORE BLOCKS TO PASS OVER. 


015830 




BMI 




SVMARK 








BRANCH ALWAYS. 


015831 


* 
















015832 


DIRFWRD LDY 




#2 








POSITION IS FORWARD FROM CURRENT POSITION. 


015833 




JSR 




DIRPOS1 








READ NEXT DIRECTORY BLOCK. 


015834 




BCS 




DRPOSERR 










015835 




DEC 




CNTENT 










015836 




BNE 




DIRFWRD 








LOOP IF POSITION NOT FOUND IN THIS BLOCK. 


015837 




BEQ 




SVMARK 








BRANCH ALWAYS. 


015838 


















015839 


DIRPOS1 LDA 




(DATPTR) , Y 








GET LINK ADDRESS OF PREVIOUS OR 


015840 




STA 




BLOKNML 








NEXT DIRECTORY BLOCK. 


015841 




INY 












BUT FIRST BE SURE THERE IS A LINK. 


015842 




CMP 




(DATPTR) , Y 










015843 




BNE 




DIRPOS2 








BRANCH IF CERTAIN LINK EXISTS 


015844 




CMP 




#0 








ARE BOTHE LINK BYTES 0? 


015845 




BNE 




DIRPOS2 








NOPE, JUST HAPPEN TO BE THE SAME VALUE. 


015846 




LDA 




#EOFERR 








SOMETHING IS WRONG WITH THIS DIRECTORY FILE! 


015847 


DRPOSERR SEC 












INDICATE ERROR 


015848 




RTS 














015849 


















015850 


DIRPOS2 LDA 




(DATPTR) , Y 








(HIGH ORDER BLOCK ADDRESS) 


015851 




STA 




BLOKNMH 










015852 




DROP INTO ' RFCBDAT ' 


(READ FILE'S DATA BLOCK) 






015853 


















015854 




NOTE: FOR DIRECTORY 


POSITIONING NO OPTIMIZATION HAS BEEN 


015855 




DONE SINCE DIRECTORY 


FILES WILL ALMOST 


ALWAYS BE LESS 


015856 




THAN 6 BLOCKS. IF 


MORE SPEED IS REQUIRED 


OR 


DIRECTORY 


015857 


* 


TYPE FILES ARE TO 


BE 


USED FOR OTHER PURPOSES 


REQUIRING 


015858 


* 


MORE BLOCKS, THEN 


THE RECOMMENDED METHOD 


IS 


TO 


CALL 


015859 




'RFCBDAT' FOR THE 


FIRST BLOCK AND GO DIRECTLY TO 


015860 




DEVICE (VIA JMP (IOUNITL) ) HANDLER FOR 


SUBSEQUENT 
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015861 
015862 
015863 
015864 
015865 
015866 
015867 
015868 
015869 
015870 
015871 
015872 
015873 
015874 
015875 
015876 
015877 
015878 
015879 
015880 
015881 
015882 
015883 
015884 
015885 
015886 
015887 
015888 
015889 
015890 
015891 
015892 
015893 
015894 
015895 
015896 
015897 
015898 
015899 
015900 
015901 
015902 
015903 
015904 
015905 
015906 
015907 
015908 
015909 
015910 



ACCESSES . 

ALSO NOTE THAT NO CHECKING IS DONE FOR 
ENABLE SINCE A DIRECTORY FILE CAN ONLY 
FOR READ ACCESS. 



READ /WRITE 
BE OPENED 



RFCBDAT 



RFCBIDX 



FCBLOKNM 



RDFCBERR 



PAGE 

LDA 
STA 
LDX 
JSR 
LDY 
BCC 
RTS 

LDA 
STA 
LDX 
JSR 
BCS 
LDY 
LDA 
STA 
INY 
LDA 
STA 
CLC 
RTS 



RFCBFST LDX 
LDY 
LDA 

* DROP INTO DOFILEIO 



DOFILEIO 



FILEIO 



FILEIOl 



STA 
LDA 
STA 
INY 
CMP 
BNE 
CMP 
BNE 
LDA 
JSR 

PAGE 

LDA 

STA 

LDA 

STA 



#RDCMD 

DHPCMD 

#DATPTR 

FILEIOl 

#FCBDATB 

FCBLOKNM 



#RDCMD 
DHPCMD 
#TINDX 
FILEIOl 
RDFCBERR 
#FCBIDXB 
BLOKNML 
(FCBPTR) , Y 

BLOKNMH 
(FCBPTR) , Y 



#TINDX 

#FCBFRST 

#RDCMD 



DHPCMD 
(FCBPTR) , Y 
BLOKNML 

(FCBPTR) , Y 
FILEIO 
#0 

FILEIO 

#ALCERR 

SYSDEATH 



(FCBPTR) , Y 
BLOKNMH 

o,x 

DBUFPL 



SET READ COMMAND. 

USE X TO POINT AT ADDRESS OF DATA BUFFER 
GO DO FILE INPUT. 

SAVE BLOCK NUMBER JUST READ IN FCB . 
BRANCH IF NO ERRORS HAPPENED. 
RETURN ERROR 

; PREPARE TO READ IN INDEX BLOCK. 

POINT AT ADDRESS OF CURRENT INDEX BUFFER 
GO READ INDEX BLOCK. 
REPORT ERROR 

SAVE BLOCK ADDRESS OF THIS INDEX IN FCB. 



POINT AT ADDRESS OF INDEX BUFFER 

AND BLOCK ADDRESS OF FIRST FILE BLOCK IN FCB 

AND LASTLY, MAKE IT A READ! 



; SAVE COMMAND. 

; GET DISK BLOCK ADDRESS FROM FCB. 



; BLOCK ZERO NOT LEGAL. 



ARE BOTH BYTES ZERO? 
NO, CONTINUE WITH REQUEST. 
OTHERWISE REPORT ALLOCATION ERROR. 
NEVER RETURNS . . . 



; GET HIGH ADDRESS OF DISK BLOCK 

; GET MEMORY ADDRESS OF BUFFER FROM 
; S.O.S. ZERO PAGE POINTED TO BY 
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015911 
015912 
015913 
015914 
015915 
015916 
015917 
015918 
015919 
015920 
015921 
015922 
015923 
015924 
015925 
015926 
015927 
015928 
015929 
015930 
015931 
015932 
015933 
015934 
015935 
015936 
015937 
015938 
015939 
015940 
015941 
015942 
015943 
015944 
015945 
015946 
015947 
015948 
015949 
015950 
015951 
015952 
015953 
015954 
015955 
015956 
015957 
015958 
015959 
015960 



FILEI02 



RPEATIOl 

RPEATIO0 
SAVPRMS 



DMGRGO 



RRITZ 

RPEATI02 

GETPRMS 



TRASH 
RPTBLOK 



WFCBFST 



JSR 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
DEY 
BPL 
EQU 
LDA 
STA 
JSR 
BCC 
CMP 
BEQ 
SEC 
RTS 
LDY 
LDA 
STA 
DEY 
BPL 
JMP 



DS 
DS 



LDY 
LDA 
TAX 
JSR 



WRAP AD J 
1,X 

DBUFPH 
SISTER+1,X 
SISBPH 
#FCBDEVN 
(FCBPTR) , Y 
DEVNUM 
#2 

RQCNTH 

IOACCESS 

#>TRASH 

BRDPTR 

#<TRASH 

BRDPTR+1 

#0 

RQCNTL 

SSBRDPH 

DEVNUM 

UNITNUM 

#$9 

DEVICE, Y 
RPTBLOK, Y 

SAVPRMS 

#0 

SERR 

DMGR 

RRITZ 

#XDISKSW 

RPEATI02 



#$9 

RPTBLOK, Y 
DEVICE, Y 

GETPRMS 
DMGRGO 



2 

10 



#FCBDEVN 
(FCBPTR) , Y 

UPBMAP 



;GO ADJUST FOR BANK CROSSING <SRS 82.162> 
; SET HI BYTE 

; AND BANK PAIR BYTE. <SRS 82.162> 



OF COURSE HAVING THE DEVICE NUMBER 

WOULD MAKE THE WHOLE OPERATION MORE MEANINGFUL. . . 
ALSO, SET UP BYTE COUNT TO 512 AND 
SET 'BYTES READ' POINTER TO 

(INTERUPT! SET TO INDICATE REG CALL MADE TO DEV HANDLER. RETURN INTERUPT!) 
A PLACE TO THROW BYTES READ AWAY 

LOCALLY DEFINED 

SO THAT IT DOESN'T MESS UP ANY OTHER DATA. 
('BYTES READ' IS THROWN AWAY) 

TRANSFER THE DEVICE NUMBER FOR DISPATCHER TO CONVERT TO UNIT NUMBER. 

PREPARE TO SAVE DEVICE PARMS 
MOVE FROM Z PAGE 
TO MY OWN SPACE 
FROM $C9 THROUGH $C0 

CALL EXTERNAL DEVICE MANAGER 

CLEAR GLOBAL ERROR VALUE 
CALL THE DRIVER 
RTS IF NO ERRORS 
DISKSWITCH ITERATES 

BRANCH IF DISK SWITCH AND REPEAT I/O REQUEST 
REPORT ERROR 

LENGTH OF PARM BLOCK 

RESTORE POSSIBLY DISTURBED PARM BLOCK 



; AND TRY THE I/O AGAIN 



; ONLY USED TO PUT BYTES READ TO SLEEP 
; DMGR PARM SAVE BLOCK 



FETCH THE 
DEVICE NUMBER 
AND UPDATE 
ITS BITMAP 
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015961 
015962 
015963 
015964 
015965 
015966 
015967 
015968 
015969 
015970 
015971 
015972 
015973 
015974 
015975 
015976 
015977 
015978 
015979 
015980 
015981 
015982 
015983 
015984 
015985 
015986 
015987 
015988 
015989 
015990 
015991 
015992 
015993 
015994 
015995 
015996 
015997 
015998 
015999 
016000 
016001 
016002 
016003 
016004 
016005 
016006 
016007 
016008 
016009 
016010 



WFCBDAT 



WFCBIDX 



FCBUPDAT 



FILIOERR 



OPEN 



OPEN0 

ERRBUSY 
ERROPN 



OPEN1 



LDX 
LDY 
LDA 
JMP 

LDX 
LDY 
LDA 
JSR 
BCS 
LDA 
JMP 

LDY 
LDA 
TAX 
JSR 
LDX 
LDY 
LDA 
JSR 
BCS 
LDA 
LDY 
AND 
STA 
RTS 



PAGE 

JSR 

BCC 

CMP 

BNE 

JSR 
BCC 
LDA 
SEC 
RTS 

LDA 
STA 
LDA 
STA 
BNE 
LDA 
SEC 
RTS 



#TINDX 
#FCBFRST 
#WRTCMD 
DOFILEIO 

#DATPTR 

#FCBDATB 

#WRTCMD 

DOFILEIO 

FILIOERR 

#$FF-DATMOD 

FCBUPDAT 

#FCBDEVN 
(FCBPTR) , Y 

UPBMAP 

#TINDX 

#FCBIDXB 

#WRTCMD 

DOFILEIO 

FILIOERR 

#$FF-IDXMOD 

tFCBSTAT 
(FCBPTR) , Y 
(FCBPTR) , Y 



FINDFILE 
OPEN0 
#BADPATH 
ERROPN 

TSTOPEN 

OPEN1 

#FILBUSY 



DATPTR 

FCBPTR 

DATPTR+1 

FCBPTR+1 

ASGNFCB 

#FCBFULL 



POINT AT ADDRESS OF INDEX BLOCK 

AND THE DISK ADDRESS OF FILE'S FIRST BLOCK IN FCB 
LASTLY, MAKE IT A WRITE REQUEST. 
AND GO DO IT! 



POINT AT MEMORY ADDRESS WITH X AND DISK ADDRESS WITH Y. 
WRITE DATA BLOCK. 



REPORT ANY ERRORS 

MARK DATA STATUS AS CURRENT. 



MAKE SURE 
THE BITMAP 

FOR THIS DEVICE ("X") 
IS UPDATED 
POINT AT ADDRESS OF INDEX BUFFER 
AND BLOCK ADDRESS OF THAT INDEX BLOCK. 

GO WRITE OUT INDEX BLOCK. 
REPORT ANY ERRORS 
MARK INDEX STATUS AS CURRENT. 
CHANGE STATUS BYTE TO 

REFLECT SUCCESSFUL DISK FILE UPDATE. 
(CARRY IS UNAFFECTED) 



; FIRST OF ALL LOOK UP THE FILE... 

; IS AN ATTEMPT TO OPEN A ROOT DIRECTORY? 
; NO, PASS BACK ERROR 

FIND OUT IF ANY OTHER FILES ARE WRITING 
TO THIS SAME FILE. (BRANCH IF NOT) 
REPORT SHARED ACCESS NOT ALLOWED. 

RETURN ERROR. 

GET ADDRESS OF FIRST FREE FCB FOUND 
DURING TEST OPEN SEQUENCE AND USE 
IT AS FILE CONTROL AREA. IF HIGH BYTE OF 
POINTER IS ZERO, THEN NO FCB 
IS AVAILABLE FOR USE. 
REPORT FCB FULL ERROR. 
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016011 
016012 
016013 
016014 
016015 
016016 
016017 
016018 
016019 
016020 
016021 
016022 
016023 
016024 
016025 
016026 
016027 
016028 
016029 
016030 
016031 
016032 
016033 
016034 
016035 
016036 
016037 
016038 
016039 
016040 
016041 
016042 
016043 
016044 
016045 
016046 
016047 
016048 
016049 
016050 
016051 
016052 
016053 
016054 
016055 
016056 
016057 
016058 
016059 
016060 



ASGNFCB 
CLRFCB 



FCBOWNR 



DEFOPEN 
SVATTRB 

SVATTR1 

OPEN2 
ERRCMPAT 

OPEN3 



LDY 

LDA 

STA 

DEY 

BPL 

LDY 

LDA 

STA 

DEY 

BNE 

LDA 

LSR 

LSR 

LSR 

LSR 

TAX 

LDY 

STA 

LDA 

BEQ 

LDY 

LDA 

BEQ 

AND 

CMP 

BEQ 

LDA 

SEC 

RTS 

PAGE 

LDA 

AND 

LDY 

CPX 

BNE 

AND 

STA 

AND 

BEQ 

LDA 

BNE 

LDA 

BEQ 

LDA 

SEC 

RTS 

CPX 
BCC 
CPX 



#$1F 
#0 

(FCBPTR) , Y 

CLRFCB 
#FCBENTN 
D.DEV-1, Y 
(FCBPTR) , Y 

FCBOWNR 
DFIL+D. STOR 

A 
A 
A 
A 

#FCBSTYP 
(FCBPTR) , Y 
C.OPLSTLN 
DEFOPEN 
#0 

(C.OPLIST) , Y 
DEFOPEN 
DFIL+D. ATTR 
(C.OPLIST) , Y 
SVATTRB 
#ACCSERR 



DFIL+D. ATTR 

#READEN+WRI TEN 

#FCBATTR 

#DIRTYP 

SVATTR1 

#READEN 

(FCBPTR) , Y 

#WRITEN 

OPEN2 

TOTENT 

ERRBUSY 

DFIL+D. COMP 

OPEN3 

tCPTERR 



#TRETYP+1 
OP EN 4 
#DIRTYP 



ASSIGN FCB, BUT FIRST 

CLEAN OUT ANY OLD RUBBISH LEFT AROUND., 



NOW BEGIN CLAIM BY MOVING IN FILE 
OWNERSHIP INFORMATION. 

NOTE: THIS CODE DEPENDS UPON THE DEFINED 
ORDER OF BOTH THE FCB AND DIRECTORY ENTRY 
BUFFER (D.). BEWARE OF CHANGES!!! ************* 
GET STORAGE TYPE. 
STRIP OFF FILE NAME LENGTH. 

; (BY DIVIDING BY 16) 

; SAVE IN X FOR LATER TYPE COMPARISON 

SAVE STORAGE TYPE. 
IS THERE AN OPEN LIST? 
NO, USE DEFAULT REQUST ACCESS... 
YES, FIND OUT WHAT ACCESS IS REQUESTED. 
IF REQ-ACCESS IS ZERO, THEN 
USE DEFAULTS . . . 

CHECK REQUEST AGAINST ATTRIBUTES. 
WERE ALL ACCESS REQUESTS SATISFIED? 
YES, SAVE ATTRIBUTES. 

REPORT ACCESS REQUEST CAN'T BE MET. 



; GET FILES ATTRIBUTES AND 

; USE IT AS A DEFAULT ACCESS REQUEST. 

; IF DIRECTORY, DON'T ALLOW WRITE ENABLE 



CHECK FOR WRITE ENABLED REQUESTED. 
BRANCH IF READ ONLY OPEN. 

OTHERWISE, BE SURE NO ONE ELSE IS READING SAME 

FILE (SET UP BY TSTOPEN) . 

OH, BY THE WAY... IS THIS FILE 

COMPATABLE WITH VERSION 0000? *************** 
REPORT FILE IS INCOMPATABLE ! 



IS IT A TREE TYPE FILE? 

TEST FOR FURTHER COMPATABLITY . IT MUST 
BE EITHER A TREE OR A DIRECTORY. 
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016061 
016062 
016063 
016064 
016065 
016066 
016067 
016068 
016069 
016070 
016071 
016072 
016073 
016074 
016075 
016076 
016077 
016078 
016079 
016080 
016081 
016082 
016083 
016084 
016085 
016086 
016087 
016088 
016089 
016090 
016091 
016092 
016093 
016094 
016095 
016096 
016097 
016098 
016099 
016100 
016101 
016102 
016103 
016104 
016105 
016106 
016107 
016108 
016109 
016110 



OPEN4 



EOFCBMV 



UBUFSPEC 



ERRBTS 



ONEKTST 



FIXDBUF 



ERROPN1 



DEFBUFR 



BNE 

LDY 
LDA 
STA 
STA 
INY 
LDA 
STA 
STA 
LDY 
LDA 
STA 
INY 
CPY 
BNE 
LDA 
STA 
INY 
LDA 
STA 
LDA 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
LDA 
SEC 
RTS 

PAGE 

LDY 

LDA 

BEQ 

CPX 

BCC 

CMP 

BCS 

LDA 

SEC 

RTS 

CMP 
BCC 
JSR 
BCC 
RTS 

LDA 
CPX 



ERRCMPAT 
#FCBFRST 
DFIL+D . FRST 
(FCBPTR) , Y 
BLOKNML 

DFIL+D. FRST+1 
(FCBPTR) , Y 
BLOKNMH 
#FCBEOF 

DFIL+D . EOF-FCBEOF, Y 
(FCBPTR) , Y 

#FCBEOF+3 
EOFCBMV 
DFIL+D. USAGE 
(FCBPTR) , Y 

DFIL+D. USAGE+1 
(FCBPTR) , Y 
C.OPLSTLN 
DEFBUFR 
#1 

DEFBUFR 
#4 

UBUFSPEC 
#BADLSTCNT 



#1 

(C.OPLIST) , Y 
DEFBUFR 
#TRETYP+1 
ONEKTST 
#2 

FIXDBUF 
#BTSERR 



#4 

ERRBTS 

REQFXBUF 

FCBUFFER 



#4 

#TRETYP+1 



REPORT INCOMPATABLE . 

MOVE ADDRESS OF FIRST BLOCK OF FILE 

INTO FCB. NO CHECKING IS DONE FOR VALIDITY. 



NOTE: THE FCB HAS NOT BEEN OFFICIALLY 
CLAIMED YET. TO DO THIS, THE FIRST BYTE 
MUST CONTAIN A VALID REFERENCE NUMBER. 
MOVE CURRENT END OF FILE 
TO FCB. 



; AND CURRENT BLOCK COUNT OF FILE. 



NOW THAT WE'VE COME THIS FAR, FIND 
OUT WHICH TYPE OF BUFFER AND ALLOCATE 
WAS IT ONLY TO SET ATTRIBUTES? 

IS A FULL ADDRESS INCLUDED? 



IT! 



(INDEX TO ' PAGECNT ' OF OPEN LIST) 
IS USER SPECIFING THE BUFFER? 
NO, USE DEFAULT BUFFER (DYNAMIC) 

IF TREE TYPE FILE, THEN AT LEAS 4 PAGES ARE NEEDED. 
BRANCH IF TREE TYPE. 

DID USER GIVE AT LEAST 2 PAGES FOR DIRECTORY TYPE? 
YES, LOG IT WITH BUFFER MANAGER 
REPORT NOT ENOUGH BUFFER SPACE. 



IS THERE AT LEAST ONE KILOBYTE BUFFER FOR TREES? 

NO, THEN TO HELL WITH IT!. 

CALL BOB AND ASK FOR HIM TO FIX IT. . . 

GO SAVE BUFFER NUMBER. 

RETURN ANY ERROR ENCOUNTERED. 

ASSUME TREE FILE (4 PAGES REQUIRED) 
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016111 
016112 
016113 
016114 
016115 
016116 
016117 
016118 
016119 
016120 
016121 
016122 
016123 
016124 
016125 
016126 
016127 
016128 
016129 
016130 
016131 
016132 
016133 
016134 
016135 
016136 
016137 
016138 
016139 
016140 
016141 
016142 
016143 
016144 
016145 
016146 
016147 
016148 
016149 
016150 
016151 
016152 
016153 
016154 
016155 
016156 
016157 
016158 
016159 
016160 



BUFREQST 
FCBUFFER 



OPNPOS 



OPNPOS1 



ERROPEN2 



OPNDIR 
OPENDONE 



BCC 
LDA 
JSR 
BCS 
LDY 
STA 
JSR 
BCS 
LDY 
LDA 
STA 
LDY 
LDA 
STA 
LDY 
LDA 
CMP 
BCS 
LDA 
LDY 
STA 
INY 
CPY 
BNE 
LDY 
LDA 
STA 
DEY 
BPL 
JSR 
BCC 

PAGE 

PHA 

LDY 

LDA 

JSR 

LDY 

LDA 

STA 

PLA 

SEC 

RTS 

JSR 
BCS 
LDY 
LDA 
CLC 
ADC 



BUFREQST 
#2 

REQBUF 

ERROPN1 

#FCBBUFN 

(FCBPTR) , Y 
GTBUFFRS 
ERROPEN2 
#FCBREFN 
CNTENT 

(FCBPTR) , Y 
#FCBLEVL 
LEVEL 

(FCBPTR) , Y 
#FCBSTYP 

(FCBPTR) , Y 
#TRETYP+1 
OPNDIR 
#$FF 

#FCBMARK 
(FCBPTR) , Y 

#FCBMARK+3 

OPNPOS 

#2 

#0 

TPOSLL, Y 

OPNPOS 1 

RDPOSN 

OPENDONE 



#FCBBUFN 
(FCBPTR) , Y 
RELBUF 
#FCBREFN 
#0 

(FCBPTR) , Y 



RFCBDAT 
ERROPEN2 
#VCBOPNC 
(VCBPTR) , Y 



BRANCH IF IT IS A TREE. 

OTHERWIZE, WE JUST NEED TWO PAGES. 

CALL BOB TO ALLOCATE A DYNAMIC BUFFER. 

REPORT ANY ERRORS. 

SAVE BUFFER NUMBER AND THEN 

FIND OUT WHERE IT IS. 

HAVE BOB RETURN ADDRESS IN DATA & INDEX POINTERS. 

IF ERROR, FREE BUFFER BEFOR RETURNING. 

NOW CLAIM FCB FOR THIS FILE. 

THIS WAS SET UP BY ' TSTOPEN ' 

MARK LEVEL 

AT WHICH 

FILE WAS OPENED 

GET STORAGE TYPE AGAIN. 

FILE MUST BE POSITIONED TO BEGINNING. 

IS IT A TREE FILE? 

NO, ASSUME IT'S A DIRECTORY. 

FOOL THE POSITION ROUTINE INTO GIVING 

A VALID POSITION WITH PRELOADED DATA, ETC. 



; SET DESIRED POSITION TO ZERO. 



LET TREE POSITION ROUTINE DO THE REST. 
BRANCH IF SUCCESSFUL. 



SAVE ERROR CODE. 

SINCE ERROR WAS ENCOUNTERED BEFORE FILE 
WAS SUCCESSFULLY OPENED, THEN 
IT'S NECESSARY TO FREE THE BUFFER AND 
FILE CONTROL BLOCK. 



READ IN FIRST BLOCK OF DIRECTORY FILE. 
RETURN ANY ERROR AFTER FREEING BUFFER & FCB 
INCREMENT OPEN COUNT FOR THIS 
VOLUME. ALSO MARK STATUS. 



#1 
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016161 




STA 


(VCBPTR) , Y 




016162 




LDY 


#VCBSTAT 


HI BIT INDICATES VOLUME BUSY 


016163 




LDA 


(VCBPTR) , Y 




016164 




ORA 


#$80 




016165 




STA 


(VCBPTR) , Y 


DOESN'T MATTER HOW MANY, JUST BE SURE IT'S SET. 


016166 




LDY 


#FCBREFN 


PASS USER HIS REFERENCE NUMBER 


016167 




LDA 


(FCBPTR) , Y 




016168 




LDY 


#0 




016169 




STA 


(C.OUTREF) , Y 




016170 




CLC 






016171 




RTS 






016172 










016173 




PAGE 






016174 










016175 


TSTOPEN 


LDA 


FCBADDRH 


TEST FOR SHARED ACCESS FILES WITH WRITE ENABLED 


016176 




STA 


FCBPTR+1 




016177 




LDA 


FCBANKNM 




016178 




STA 


SISFCBP 




016179 




LDA 


#0 




016180 




STA 


DATPTR+1 


MARK AS NO FREE FOUND. 


016181 




STA 


CNTENT 




016182 




STA 


TOTENT 


ALSO, INIT COUNT OF MATCHING FILES 


016183 


TSTOPN1 


STA 


FCBPTR 


SAVE NEW LOW ORDER ADDRESS 


016184 




LDX 


DATPTR+1 


FIND OUT IF A FREE SPOT HAS BEEN FOUND YET. 


016185 




BNE 


TSTOPN2 


YES, DON'T INCREMENT REFNUM (CNTENT) . 


016186 




INC 


CNTENT 


BUMP REFNUM 


016187 


TSTOPN2 


LDY 


#FCBREFN 


TEST FOR IN USE FCB 


016188 




LDA 


(FCBPTR) , Y 


(NON ZERO) 


016189 




BNE 


CHKACTV 


THIS FCB IS IN USE, COPARE OWNERSHIP. 


016190 




TXA 




TEST AGAIN FOR FREE FCB 


016191 




BNE 


TSNXFCB 


BRANCH IF A FREE SPOT HAS ALREADY BEEN FOUND. 


016192 




LDA 


FCBPTR 


TRANSFER CURRENT POINTER SO IT MAY BE 


016193 




STA 


DATPTR 


USED AS A FREE FCB BY OPEN. 


016194 




LDA 


FCBPTR+1 


HIGH BYTE ALWAYS NON ZERO. 


016195 




STA 


DATPTR+1 




016196 




JMP 


TSNXFCB 




016197 










016198 


CHKACTV 


EQU 




IF MATCHING FILE IS SWAPPED, IT DOESNT COUNT 


016199 




LDY 


tFCBSWAP 




016200 




LDA 


(FCBPTR) , Y 




016201 




BNE 


TSNXFCB 


BRANCH IF SWAPPED 


016202 




LDY 


#FCBENTN 


NOTE: THIS CODE DEPENDS ON THE 


016203 


WHOWNS 


LDA 


(FCBPTR) , Y 


DEFINED ORDER OF FCB AND DIRECTORY 


016204 




CMP 


D.DEV-1, Y 


***************************** 


016205 




BNE 


TSNXFCB 


BRANCH IF THIS ONE HAS A DIFFERENT OWNER. 


016206 




DEY 






016207 




BNE 


WHOWNS 




016208 




INC 


TOTENT 


REPORT THIS ONE AS A CO-OWNER. 


016209 




LDY 


#FCBATTR 


NOW FIND OUT IF THIS ONE WANTS TO WRITE. 


016210 




LDA 


(FCBPTR) , Y 
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016211 
016212 
016213 
016214 
016215 
016216 
016217 
016218 
016219 
016220 
016221 
016222 
016223 
016224 
016225 
016226 
016227 
016228 
016229 
016230 
016231 
016232 
016233 
016234 



TSNXFCB 



AND 
BEQ 
SEC 
RTS 

LDA 
CLC 
ADC 
BCC 
LDX 
INC 
CPX 
BEQ 
CLC 
RTS 

CHN 



#WRITEN 
TSNXFCB 



FCBPTR 

#$20 

TSTOPN1 

FCBPTR+1 

FCBPTR+1 

FCBADDRH 

TSTOPN1 



READ/WRITE, 4,2 



; IF WRITE IS NOT ENABLED THEN CONTINUE. 

; OTHERWISE, JUST SET THE CARRY TO SHOW 

; THAT THE FILE CAN'T BE SHARED. 

; CALCULATE NEXT FCB AREA (+$20) 



; LOOP IF NO PAGE CROSS. 



HAVE WE LOOKED AT BOTH PAGES? 
NOPE, LOOK AT PAGE TWO. 

INDICATE NO FILES THAT SHARE HAVE WRITE ENABLED, 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: POSN.OPEN 

************************************************************************* 
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016236 


DOCUMENT :SOS1.3.4of5 


FOUR 


SOS . READ . WRITE . TEXT 
















016237 












016238 












016239 


************************************************************************* 


016240 


* APPLE /// 


SOS 1.3 SOURCE 


CODE FILE: READ. WRITE 


016241 




016242 


* ASSEMBLER 


APPLE ] [ 


6502 


ASSEMBLER from APPLE 


COMPUTER TOOLKIT 


016243 












016244 




PAGE 








016245 


READ 


CLC 






; FIRST DETERMINE IF REQESTED 


016246 




LDY 




#FCBATTR 


; READ IS LEGAL 


016247 




LDA 




(FCBPTR) , Y 




016248 




AND 




#READEN 


; IS READ ENABLED? 


016249 




BNE 




READ1 


; YES, CONTINUE... 


016250 




LDA 




#ACCSERR 


; REPORT ILLEGAL ACCESS. 


016251 




SEC 








016252 




RTS 








016253 


* 










016254 


READ1 


LDY 




#FCBMARK 


; GET CURRENT MARK INTO ' TPOS ' AND 


016255 

\J -L \J ^ 




LDA 




(FCBPTR) , Y 


; DETERMINE IF RESULTING POSITION 


016256 

\J -L \J fL.. -J \J 




STA 




TPOSLL 


; EXCEEDS CURRENT END OF FILE. 


016257 




ADC 




C. BYTES 




016258 




STA 




SCRTCH 




016259 




INY 








016260 

\J A- \J iL.. f .J \J 




LDA 




(FCBPTR) , Y 




016261 




STA 




TPOSLH 




016262 




ADC 




C.BYTES+1 


; (THIS WAS DONE STRAIT-LINE SINCE 


016263 




STA 




SCRTCH+1 


; WE'RE ADDING A TWO BYTE TO A THREE 


016264 




INY 






; BYTE QUANTITY) 


016265 




LDA 




(FCBPTR) , Y 




016266 




STA 




TPOSHI 




016267 




ADC 




#0 


; ADD IN REMAINING CARRY. 


016268 




STA 




SCRTCH+2 




016269 




LDY 




#FCBEOF+2 


; NOW TEST EOF AGAINST POSITION GENERATED 


016270 


EOFTEST 


LDA 




SCRTCH-FCBEOF, Y 




016271 




CMP 




(FCBPTR) , Y 


; IS NEW POSITION > EOF? 


016272 




BCC 




READ 2 


; NO, PROCEED. 


016273 




BNE 




ADJSTCNT 


; YES, ADJUST ' C. BYTES' REQUEST 


016274 




DEY 








016275 




CPY 




#FCBEOF-l 


; HAVE WE COMPARED ALL TREE BYTES? 


016276 




BNE 




EOFTEST 


; NO, TEST NEXT LOWEST. 


016277 


ADJSTCNT 


EQU 




* 


; ADJUST REQUEST TO READ UP TO (BUT 


016278 




LDY 




#FCBEOF 


; NOT INCLUDING) END OF FILE. 


016279 




LDA 




(FCBPTR) , Y 


; RESULT= (EOF-1 ) -POSITION 


016280 




SBC 




TPOSLL 




016281 




STA 




C. BYTES 




016282 




INY 








016283 




LDA 




(FCBPTR) , Y 
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016284 
016285 
016286 
016287 
016288 
016289 
016290 
016291 
016292 
016293 
016294 
016295 
016296 
016297 
016298 
016299 
016300 
016301 
016302 
016303 
016304 
016305 
016306 
016307 
016308 
016309 
016310 
016311 
016312 
016313 
016314 
016315 
016316 
016317 
016318 
016319 
016320 
016321 
016322 
016323 
016324 
016325 
016326 
016327 
016328 
016329 
016330 
016331 
016332 
016333 



READ 2 



GORDDNE 



READ 3 



TREAD 



TREAD 



SBC 
STA 
ORA 
BNE 
LDA 
JSR 
LDA 
STA 
BNE 
CMP 
BNE 
STA 
JMP 
PAGE 

LDA 
STA 
LDA 
STA 
LDX 
JSR 
STA 
STY 
LDY 
LDA 
CMP 
BCC 
JMP 

JSR 
BCC 
JMP 
JSR 
JSR 
BVS 
BCS 
LDA 
LSR 
BEQ 
STA 
LDY 
LDA 
AND 
BNE 
STA 
LDA 
STA 
LDA 
STA 
LDA 



TPOSLH 
C.BYTES+1 
C. BYTES 
READ 2 
#EOFERR 
SYSERR 
C. BYTES 
RWREQL 
READ 3 
C.BYTES+1 
READ 3 
RWREQH 
READONE 



C.BYTES+1 
RWREQH 
C . OUTBUF 
USRBUF 
#C . OUTBUF 
WRAP AD J 
USRBUF+1 
SISUSRBF 
#FCBSTYP 
(FCBPTR) ,Y 
#TRETYP+1 
TREAD 
DREAD 

RDPOSN 

TREAD 

ERRFIX1 

PREPRW 

READPART 

GORDDNE 

TREAD 

RWREQH 

A 

TREAD 
BULKCNT 
#FCBSTAT 
(FCBPTR) , Y 
#DATMOD 
TREAD 
IOACCESS 
USRBUF 
DATPTR 
USRBUF+1 
DATPTR+1 
SISUSRBF 



; IF BOTH BYTES ARE ZERO, REPORT EOF ERROR. 



; BRANCH IF READ REQUEST DEFINITELY NON-ZERO. 
; BRANCH IF READ REQUESTOZERO 
; DO NOTHING. 



MOVE POINTER TO USERS BUFFER TO BFM 
Z-PAGE AREA. 
<SRS 82.162> 

ADJUST FOR BANK CROSSING. <SRS 82.162> 

SAVE VALID USER BUFFER ADDRESS (THAT WILL NOT CROSS BANKS) 
NOW FIND OUT IF IT'S A TREE READ OR OTHER. 



BRANCH IF A TREE FILE. 

OTHEWISE ASSUME IT'S A DIRECTORY. 

GET DATA POINTER SET UP. 
REPORT ANY ERRORS 

TEST FOR NEWLINE, SETS UP FOR PARTIAL READ. 
MOVE CURRENT DATA BUFFER CONTENTS TO USER AREA 
BRANCH IF REQUEST IS SATISFIED. 
CARRY SET INDICATES NEWLINE IS SET. 
FIND OUT HOW MANY BLOCKS ARE TO BE READ 
IF LESS THAN TWO, THEN DO IT THE SLOW WAY. 

SAVE BULK BLOCK COUNT. 

MAKE SURE CURRENT DATA AREA 

DOESN'T NEED TO BE WRITTEN BEFORE 

RESETTING POINTER TO READ DIRECTLY INTO 

USER'S AREA. BRANCH IF DATA NEED TO BE WRITTEN 

TO FORCE FIRST CALL THRU ALL DEVICE HANDLER CHECKING. 

MAKE THE DATA BUFFER THE USER'S SPACE. 
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016334 




STA 


SISDATP 


016335 








016336 




PAGE 




016337 


RDF AST 


JSR 


RDPOSN 


016338 




BCS 


ERRFIX 


016339 


RDFASTO 


INC 


DATPTR+1 


016340 




INC 


DATPTR+1 


016341 




DEC 


RWREQH 


016342 




DEC 


RWREQH 


016343 




INC 


TPOSLH 


016344 




INC 


TPOSLH 


016345 




BNE 


RDFAST1 


016346 




INC 


TPOSHI 


016347 




LDA 


TPOSHI 


016348 




EOR 


#1 


016349 




LSR 


A 


016350 


RDFAST1 


DEC 


BULKCNT 


016351 




BNE 


RDFAST2 


016352 




JSR 


FXDATPTR 


016353 




LDA 


RWREQL 


016354 




ORA 


RWREQH 


016355 




BEQ 


READONE 


016356 




BNE 


TREAD 


016357 


* 






016358 


RDFAST2 


BCS 


RDFAST 


016359 




LDA 


TPOSHI 


016360 




LSR 


A 


016361 




LDA 


TPOSLH 


016362 




ROR 


A 


016363 




TAY 




016364 




LDA 


(TINDX) , Y 


016365 




STA 


BLOKNML 


016366 




INC 


TINDX+1 


016367 




CMP 


(TINDX) , Y 


016368 




BNE 


REALRD 


016369 




CMP 


#0 


016370 




BNE 


REALRD 


016371 




STA 


IOACCESS 


016372 




BEQ 


NOSTUF 


016373 


REALRD 


LDA 


(TINDX) , Y 


016374 




CLC 




016375 


NOSTUF 


DEC 


TINDX+1 


016376 




BCS 


RDFAST 


016377 




STA 


BLOKNMH 


016378 




LDA 


IOACCESS 


016379 




BEQ 


RDFAST 


016380 




LDA 


DATPTR+1 


016381 




STA 


DBUFPH 


016382 




JSR 


REPEAT IO 


016383 




BCC 


RDFASTO 



GET NEXT BLOCK DIRECTLY INTO USER SPACE. 
BRANCH ON ANY ERROR. 

BUMP ALL POINTERS BY 512 (ONE BLOCK) 



BRANCH IF POSITION DOES NOT GET TO A 64K BOUNDARY. 
OTHERWISE, MUST CHECK FOR A 128K BOUNDARY 
SET CARRY IF MOD 128K HAS BEEN REACHED 



; HAVE WE READ ALL WE CAN FAST? 

; BRANCH IF MORE TO READ. 

; GO FIX UP DATA POINTER TO SOS BUFFER. 

; TEST FOR END OF READ. 

; ARE BOTH ZERO? 

; NO, READ LAST PARTIAL BLOCK. 



; GET INDEX TO NEXT BLOCK ADDRESS 



; INDEX TO ADDRESS IS INT(POS/512) 
; GET LOW ADDRESS 



ARE BOTH HI AND LOW ADDRESS THE SAME? 

NO, IT'S A REAL BLOCK ADDRESS. 

ARE BOTH BYTES ZERO? 

NOPE — MUST BE REAL DATA 

DON'T DO REPEATIO JUST AFTER SPARSE 

BRANCH ALWAYS (CARRY SET) 

GET HIGH ADDRESS BYTE 



; BRANCH IF NO BLOCK TO READ 

; HAS FIRST CALL GONE TO DEVICE YET? 

; NOPE, GO THRU NORMAL ROUTE... 

; RESET HI BUFFER ADDRESS FOR DEVICE HANDLER 



; BRANCH IF NO ERRORS. 
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016384 




PAGE 






016385 


ERRFIX 


PHA 




; SAVE ERROR CODE 


016386 




JSR 


FXDATPTR 


; GO RESTORE DATA POINTERS, ETC... 


016387 




PLA 






016388 


ERRFIX1 


PHA 




; SAVE ERROR CODE 


016389 




JSR 


READONE 


; PASS BACK NUMBER OF BYTES ACTUALLY READ. 


016390 




PLA 






016391 




SEC 




; REPORT ERROR 


016392 




RTS 






016393 










016394 


READONE 


LDY 


#0 


; RETURN TOTAL NUMBER OF BYTES ACTUALLY READ 


016395 




SEC 




; THIS IS DERIVED FROM C . BYTES-RWREQ 


016396 




LDA 


C. BYTES 




016397 




SBC 


RWREQL 




016398 




STA 


(C.OUTCNT) , Y 




016399 




INY 






016400 




LDA 


C.BYTES+1 




016401 




SBC 


RWREQH 




016402 




STA 


(C.OUTCNT) , Y 




016403 




JMP 


RDPOSN 


; LEAVE WITH VALID POSITION IN FCB. 


016404 










016405 


PREPRW 


SEC 




; ADJUST POINTER TO USER'S BUFFER TO 


016406 




LDA 


USRBUF 


; MAKE THE TRANSFER 


016407 




SBC 


TPOSLL 




016408 




STA 


USRBUF 




016409 




BCS 


PREPRW1 


; BRANCH IF NO ADJUSTMENT TO HI ADDR. NEEDED. 


016410 




DEC 


USRBUF+1 


; NOTE: SARA ALLOWS INDIRECT FROM $101 UP 


016411 


PREPRW1 


LDY 


#FCBATTR 


; AS LONG AS ACTUAL RESULTING ADDRESS IS >=$200 


016412 




LDA 


(FCBPTR) , Y 


; TEST FOR NEW LINE ENABLED 


016413 




AND 


#NLINEN 


; SET CARRY IF IT IS. 


016414 




CLC 






016415 




BEQ 


NONEWLIN 


; BRANCH IF NEWLINE IS NOT ENABLED 


016416 




SEC 






016417 




LDY 


#FCBNEWL 




016418 




LDA 


(FCBPTR) , Y 


; MOVE NEWLINE CHARACTER TO MORE 


016419 




STA 


NLCHAR 


; ACCESSABLE SPOT. 


016420 


NONE WL IN 


LDY 


TPOSLL 


; GET INDEX TO FIRST DATA 


016421 




LDA 


DATPTR 


; RESET LOW ORDER OF POSPTR TO BEGINNING OF PAGE. 


016422 




STA 


POSPTR 




016423 




LDX 


RWREQL 


; AND LASTLY GET LOW ORDER COUNT OF REQUESTED BYTES 


016424 




RTS 




; RETURN STATUSES . . . 


016425 


* 








016426 


READPART 


TXA 






016427 




BNE 


RDPART 


; BRANCH IF REQUEST IS NOT A EVEN PAGES 


016428 




LDA 


RWREQH 


; A CALL OF ZERO BYTES SHOULD NEVER GET HERE! 


016429 




BEQ 


SETRDNE 


; BRANCH IF NOTHIN' TO DO. 


016430 




DEC 


RWREQH 




016431 


RDPART0 


DEX 






016432 


RDPART 


LDA 


(POSPTR) , Y 


; MOVE DATA TO USER'S BUFFER 


016433 




STA 


(USRBUF) , Y 


; ONE BYTE AT A TIME. 
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016434 
016435 
016436 
016437 
016438 
016439 
016440 
016441 
016442 
016443 
016444 
016445 
016446 
016447 
016448 
016449 
016450 
016451 
016452 
016453 
016454 
016455 
016456 
016457 
016458 
016459 
016460 
016461 
016462 
016463 
016464 
016465 
016466 
016467 
016468 
016469 
016470 
016471 
016472 
016473 
016474 
016475 
016476 
016477 
016478 
016479 
016480 
016481 
016482 
016483 



RDPART1 
RDPART2 



RDPART3 



ENDRQCHK 



ENDRCHK1 
ENDRCHK2 



TSTNEWL 



RDRQDNE 



SETRDNE 
RDPRTDNE 



RDONE1 



RDPART4 



TXA 
BEQ 
BCS 
DEX 
INY 
BNE 
LDA 
INC 
INC 
BNE 
INC 
INC 
EOR 
BEQ 
CLV 
BVC 

LDA 
BEQ 
INY 
BNE 
LDA 
EOR 
BNE 
DEC 
DEY 
JMP 

LDA 
EOR 
BNE 
INY 
BNE 
INC 
INC 
BNE 
INC 
BIT 
STY 
BVS 
INX 
STX 
PHP 
CLC 
TYA 
ADC 
STA 
BCC 
INC 
PLP 



ENDRQCHK 
TSTNEWL 



RDPART 

POSPTR+1 

USRBUF+1 

TPOSLH 

RDPART3 

TPOSHI 

POSPTR+1 

DATPTR+1 

RDPART 

RDPRTDNE 

RWREQH 
RDRQDNE 

ENDRCHK1 
POSPTR+1 
DATPTR+1 
ENDRCHK2 
RWREQH 

RDPART 1 

(POSPTR) , Y 
NLCHAR 
RDPART2 

SETRDNE 

USRBUF+1 

TPOSLH 

SETRDNE 

TPOSHI 

SETVFLG 

TPOSLL 

RDONE1 

RWREQL 



USRBUF 
USRBUF 
RDPART 4 
USRBUF+1 



NOTE: THIS ROUTINE IS CODED TO BE 
FASTEST WHEN NEWLINE IS DISABLED. 
BRANCH IF NEW LINE NEEDS TO BE TESTED. 

PAGE CROSSED? 

NO. MOVE NEXT BYTE. 

TEST FOR END OF BUFFER 

BUT FIRST ADJUST USER BUFFER POINTER 
AND POSITION. 



AND SOS BUFFER HIGH ADDRESS. 
(CARRY HAS BEEN CLEVERLY UNDISTURBED.) 
BRANCH IF MORE TO READ IN BUFFER. 
INDICATE NOT FINISHED. 
BRANCH ALWAYS. 



BRANCH IF REQEST SATISFIED. 
DONE WITH THIS BLOCK OF DATA? 
NO, ADJUST HIGH BYTE OF REQUEST. 
MAYBE- CHECK FOR END OF BLOCK BUFFER. 
(DON'T DISTURB CARRY) 

BRANCH IF HI COUNT CAN BE DEALT WITH NEXT TIME. 
RESTORE PROPER VALUE TO 'Y' 



GET LAST BYTE TRANSFERED AGAIN. 
HAVE WE MATCHED NEWLINE CHARACTER? 
NO, READ NEXT. 
ADJUST POSITION. 

BUMP POINTERS. 



(SET V FLAG) 

SAVE LOW POSITION 

LEAVE REQUEST AS +1 FOR NEXT CALL 
AND REMAINDER OF REQUEST COUNT. 
SAVE STATUSES 

ADJUST USER'S LOW BUFFER ADDRESS 



ADJUST HI ADDRESS AS NEEDED. 
RESTORE RETURN STATUSES 
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016484 


SETVFLG 


RTS 






(THIS BYTE <$60> IS USED TO SET V FLAG) 


016485 












016486 


FXDATPTR 


LDA 


DATPTR 




PUT CURRENT USER BUFFER 


016487 




STA 


USRBUF 




ADDRESS BACK TO NORMAL 


016488 




LDA 


DATPTR+1 






016489 




STA 


USRBUF+1 




BANK PAIR BYTE SHOULD BE MOVED ALSO. 


016490 




LDA 


SISDATP 






016491 




STA 


SISUSRBF 






016492 




LDY 


#FCBBUFN 




RESTORE BUFFER ADDRESS 


016493 




LDA 


(FCBPTR) , Y 






016494 




LDX 


#DATPTR 






016495 




JMP 


GETBUFADR 




END VIA CALL TO BOB'S CODE. 


016496 


* 










016497 




PAGE 








016498 












016499 


* READ DIRECTORY FILE... 








016500 












016501 


DREAD 


JSR 


RDPOSN 






016502 




BCS 


ERRDRD 




PASS BACK ANY ERRORS 


016503 




JSR 


PREPRW 




PREPARE FOR TRANSFER. 


016504 




JSR 


READPART 




MOVE DATA TO USER'S BUFFER 


016505 




BVC 


DREAD 




REPEAT UNTIL REQUEST IS SATISFIED. 


016506 




JSR 


READONE 




UPDATE FCB AS TO NEW POSITION. 


016507 




BCC 


DREDONE 




BRANCH IF ALL IS WELL. 


016508 




CMP 


#EOFERR 




WAS LAST READ TO END OF FILE? 


016509 




SEC 






ANTICIPATE SOME OTHER PROBLEM 


016510 




BNE 


DREDERR 




BRANCH IF NOT EOF ERROR. 


016511 




JSR 


SVMARK 






016512 




JSR 


ZIPDATA 




CLEAR OUT DATA BLOCK. 


016513 




LDY 


#FCBDATB+1 




PROVIDE DUMMY BACK POINTER FOR FUTURE RE-POSITION 


016514 




LDA 


(FCBPTR) , Y 




GET HI BYTE OF LAST BLOCK. 


016515 




PHA 








016516 




DEY 








016517 




LDA 


(FCBPTR) , Y 




AND LOW BYTE. 


016518 




PHA 








016519 




LDA 


#0 




NOW MARK CURRENT BLOCK AS IMPOSIBLE. 


016520 




STA 


(FCBPTR) , Y 






016521 




INY 








016522 




STA 


(FCBPTR) , Y 






016523 




TAY 






NOW MOVE LAST BLOCK ADDRESS TO DATA BUFFER AS BACK 


016524 




PLA 








016525 




STA 


(DATPTR) , Y 






016526 




PLA 








016527 




INY 








016528 




STA 


(DATPTR) , Y 






016529 


DREDONE 


CLC 






INDICATE NO ERROR 


016530 


DREDERR 


RTS 








016531 












016532 


ERRDRD 


JMP 


ERRFIX1 




REPORT HOW MUCH WE COULD TRANSFER BEFORE ERROR. 


016533 
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016534 
016535 
016536 
016537 
016538 
016539 
016540 
016541 
016542 
016543 
016544 
016545 
016546 
016547 
016548 
016549 
016550 
016551 
016552 
016553 
016554 
016555 
016556 
016557 
016558 
016559 
016560 
016561 
016562 
016563 
016564 
016565 
016566 
016567 
016568 
016569 
016570 
016571 
016572 
016573 
016574 
016575 
016576 
016577 
016578 
016579 
016580 
016581 
016582 
016583 



WRITE 



ERRACCS 



WPERROR 



WRITE 1 



WEOFTST 



WAD JEOF 



WRTAD JEOF 



WRITE2 



PAGE 

CLC 

LDY 

LDA 

AND 

BNE 

LDA 

SEC 

RTS 

JSR 
BCS 

LDY 
LDA 
STA 
ADC 
STA 
INY 
LDA 
STA 
ADC 
STA 
INY 
LDA 
STA 
ADC 
STA 
LDY 
LDA 
CMP 
BCC 
BNE 
DEY 
CPY 
BNE 
CLC 
LDY 
LDA 
STA 
LDA 

STA 
INY 
CPY 
BNE 
LDA 
STA 
BNE 
CMP 



#FCBATTR 
(FCBPTR) , Y 
#WRITEN 
WRITE1 
#ACCSERR 



TSTWPROT 
WPERROR 

#FCBMARK 
(FCBPTR) , Y 
TPOSLL 
C. BYTES 
SCRTCH 

(FCBPTR) , Y 
TPOSLH 
C.BYTES+1 
SCRTCH+1 

(FCBPTR) , Y 
TPOSHI 
#0 

SCRTCH+2 
#FCBEOF+2 
SCRTCH-FCBEOF, Y 
(FCBPTR) , Y 
WRITE2 
WAD JEOF 

#FCBEOF-l 
WEOFTST 

#FCBEOF 
(FCBPTR) , Y 
OLDEOF-FCBEOF, Y 
SCRTCH-FCBEOF, Y 

(FCBPTR) , Y 

#FCBEOF+3 
WRTAD JEOF 
C. BYTES 
RWREQL 
WRITE3 
C.BYTES+1 



FIRST DETERMINE IF REQESTED 
WRITE IS LEGAL 

IS WRITE ENABLED? 
YES, CONTINUE... 
REPORT ILLEGAL ACCESS. 



OTHERWISE, MAKE SURE DEVICE IS NOT WRITE PROTECTED. 
REPORT WRITE PROTECTED AND ABORT OPERATION. 

GET CURRENT MARK INTO ' TPOS ' AND 
DETERMINE IF RESULTING POSITION 
EXCEEDS CURRENT END OF FILE. 



(THIS WAS DONE STRAIGHT-LINE SINCE 
WE'RE ADDING A TWO BYTE TO A THREE 
BYTE QUANTITY) 



; ADD IN REMAINING CARRY. 

; NOW TEST EOF AGAINST POSITION GENERATED 

IS NEW POSITION > EOF? 
NO, PROCEED. 
YES, ADJUST END OF FILE 

HAVE WE COMPARED ALL TREE BYTES? 
NO, TEST NEXT LOWEST. 
ADJUST REQUEST TO WRITE UP TO (BUT 
NOT INCLUDING) END OF FILE. 
SAVE OLD EOF IN CASE OF LATER ERROR 

; RESULT=EOF 



; BRANCH IF WRITE REQUEST DEFINITELY NON-ZERO. 
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BNE 


WRITE3 


r 


BRANCH IF WRITE REQUESTOZERO 


016585 




STA 


RWREQH 






016586 




JMP 


WRITDONE 


r 


DO NOTHING. 


016587 


★ 










016588 




PAGE 








016589 


WRITE 3 


LDA 


C.BYTES+1 






016590 




STA 


RWREQH 






016591 




LDA 


C . OUTBUF 


; 


MOVE POINTER TO USERS BUFFER TO BFM 


016592 




STA 


USRBUF 




Z-PAGE AREA. 


016593 




LDA 


C.OUTBUF+1 






016594 




STA 


USRBUF+1 


r 


(SO IT MAY BE ADJUSTED WITHOUT LOOSING 


016595 




LDA 


SISOUTBF 


r 


ORIGINAL ADDRESS . ) 


016596 




STA 


SISUSRBF 






016597 




LDY 


#FCBSTYP 


r 


NOW FIND OUT IF IT'S A TREE WRITE OR OTHER. 


016598 




LDA 


(FCBPTR) , Y 






016599 




CMP 


#TRETYP+1 






016600 




BCC 


TWRITE 




BRANCH IF A TREE FILE. 


016601 




JMP 


ERRACCS 




OTHEWISE RETURN AN ACCESS ERROR! 


016602 


TWRITE 


JSR 


RDPOSN 




READ BLOCK WE'RE 


016603 




BCS 


WRITERROR 






016604 




LDY 


#FCBSTAT 






016605 




LDA 


(FCBPTR) , Y 






016606 




AND 


#DATALC+IDXALC+TOPALC 




016607 




BEQ 


TREWRT1 






016608 




LDY 


#0 


r 


FIND OUT IF ENOUGH DISK SPACE IS AVAILABLE 


016609 


TWRTALC 


INY 




r 


INDEXES AND DATA BLOCK 


016610 




LSR 


A 






016611 




BNE 


TWRTALC 






016612 




STY 


REQL 






016613 




STA 


REQH 






016614 




JSR 


TSFRBLK 






016615 




BCS 


WRITERROR 


r 


PASS BACK ANY ERRORS. 


016616 




LDY 


#FCBSTAT 






016617 




LDA 


(FCBPTR) , Y 


r 


NOW GET MORE SPECIFIC. 


016618 




AND 


#TOPALC 


r 


ARE WE LACKING A TREE TOP? 


016619 




BEQ 


TSTSAPWR 


r 


NO, TEST FOR LACK OF SAPLING LEVEL INDEX. 


016620 




JSR 


TOPDOWN 


r 


GO ALLOCATE TREE TOP AND ADJUST FILE TYPE. 


016621 




BCC 


DBLOKALC 


r 


CONTINUE WITH ALLOCATION OF DATA BLOCK. 


016622 


WRI TERROR 


PHA 




r 


SAVE ERROR 


016623 




LDY 


#FCBEOF 






016624 


WRITERR01 


LDA 


OLDEOF-FCBEOF, Y 






016625 




STA 


(FCBPTR) , Y 


r 


RESTORE OLD EOF UPON ERR 


016626 




INY 








016627 




CPY 


#FCBEOF+3 






016628 




BNE 


WRITERR01 






016629 




LDY 


#FCBMARK 






016630 


WRITERR02 


LDA 


OLDMARK-FCBMARK , Y 






016631 




STA 


(FCBPTR) , Y 


r 


AND RESTORE OLD MARK! 


016632 




INY 








016633 




CPY 


#FCBMARK+3 
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016634 




BNE 


WRITERR02 






016635 




PLA 








016636 




SEC 








016637 




RTS 






ERROR RETURN 


016638 


* 










016639 


TWRITEGO 


BVC 


TWRITE 




A PIGGY-BACK BACKWARD BRANCH 


016640 












016641 




PAGE 








016642 


TSTSAPWR 


LDA 


(FCBPTR) , Y 




GET STATUS BYTE AGAIN. 


016643 




AND 


#IDXALC 




DO WE NEED A SAPLING LEVEL INDEX BLOCK? 


016644 




BEQ 


DBLOKALC 




NO, ASSUME IT'S JUST A DATA BLOCK NEEDED. 


016645 




JSR 


SAPDOWN 




GO ALLOCATE AN INDEX BLOCK AND UPDATE TREE TOP 


016646 




BCS 


WRI TERROR 




RETURN ANY ERRORS. 


016647 


DBLOKALC 


JSR 


ALCWBLK 




GO ALLOCATE FOR DATA BLOCK. 


016648 




BCS 


WRI TERROR 






016649 




LDA 


TPOSHI 




CALCULATE POSITION WITHIN INDEX BLOCK. 


016650 




LSR 


A 






016651 




LDA 


TPOSLH 






016652 




ROR 


A 






016653 




TAY 






NOW PUT BLOCK ADDRESS INTO INDEX BLOCK 


016654 




INC 


TINDX+1 




HIGH BYTE FIRST. 


016655 




LDA 


SCRTCH+1 






016656 




TAX 








016657 




STA 


(TINDX) , Y 






016658 




DEC 


TINDX+1 




(RESTORE POINTER TO LOWER PAGE OF INDEX BLOCK) 


016659 




LDA 


SCRTCH 




GET LOW BLOCK ADDRESS 


016660 




STA 


(TINDX) , Y 




NOW STORE LOW ADDRESS. 


016661 




LDY 


#FCBDATB 




ALSO UPDATE FILE CONTROL BLOCK TO INDICATE 


016662 




STA 


(FCBPTR) , Y 




THAT THIS BLOCK IS ALLOCATED. 


016663 




INY 








016664 




TXA 




r 


GET HIGH ADDRESS AGAIN. 


016665 




STA 


(FCBPTR) , Y 






016666 




LDY 


#FCBSTAT 






016667 




LDA 


(FCBPTR) , Y 






016668 




ORA 


#IDXMOD 






016669 




AND 


#$FF-DATALC- 


-IDXALC-TOPALC ; CLEAR ALLOCATION REQUIREMENT BITS. 


016670 




STA 


(FCBPTR) , Y 






016671 


TREWRT1 


LDX 


#USRBUF 




LOCATE POINTER TO ADJUST <SRS 82.162> 


016672 




JSR 


WRAP AD J 




ADJUST FOR BANK CROSSING <SRS 82.162> 


016673 




JSR 


PREPRW 




WRITE ON 


016674 




JSR 


WRTPART 






016675 




BVC 


TWRITEGO 






016676 


WRITDONE 


JMP 


RDPOSN 


r 


UPDATE FCB WITH NEW POSITION. 


016677 












016678 




PAGE 








016679 


WRTPART 


TXA 








016680 




BNE 


WRPART 




BRANCH IF REQUEST IS NOT A EVEN PAGES 


016681 




LDA 


RWREQH 




A CALL OF ZERO BYTES SHOULD NEVER GET HERE! 


016682 




BEQ 


SETWRDNE 




DO NOTHING! 


016683 
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016684 
016685 
016686 
016687 
016688 
016689 
016690 
016691 
016692 
016693 
016694 
016695 
016696 
016697 
016698 
016699 
016700 
016701 
016702 
016703 
016704 
016705 
016706 
016707 
016708 
016709 
016710 
016711 
016712 
016713 
016714 
016715 
016716 
016717 
016718 
016719 
016720 
016721 
016722 
016723 
016724 
016725 
016726 
016727 
016728 
016729 
016730 
016731 
016732 
016733 



WRPART 



WRPART2 



WRPART3 



ENDWQCHK 



ENDWCHK1 
ENDWCHK2 



WRTRQDNE 



SETWRDNE 
WRPRTDNE 



DEC 
DEX 
LDA 
STA 
TXA 
BEQ 
INY 
BNE 
LDA 
INC 
INC 
BNE 
INC 
INC 
EOR 
BEQ 
CLV 
BVC 

LDA 
BEQ 
INY 
BNE 
LDA 
EOR 
BNE 
DEC 
DEY 
JMP 

INY 
BNE 
INC 
INC 
BNE 
INC 
BIT 
STY 
STX 
PHP 
LDY 
LDA 
OPA 
STA 
CLC 
LDA 
ADC 
STA 
BCC 
INC 



RWREQH 

(USRBUF) , Y 
(POSPTR) , Y 

ENDWQCHK 

WRPART 

POSPTR+1 

USRBUF+1 

TPOSLH 

WRPART 3 

TPOSHI 

POSPTR+1 

DATPTR+1 

WRPART 

WRPRTDNE 

RWREQH 
WRTRQDNE 

ENDWCHK1 
POSPTR+1 
DATPTR+1 
ENDWCHK2 
RWREQH 

WRPART 2 



SETWRDNE 

USRBUF+1 

TPOSLH 

SETWRDNE 

TPOSHI 

SETVFLG 

TPOSLL 

RWREQL 

#FCBSTAT 

(FCBPTR) , Y 
#DATMOD+USEMOD 

(FCBPTR) , Y 

TPOSLL 
USRBUF 
USRBUF 
WRPART 4 
USRBUF+1 



MOVE DATA FROM USER'S BUFFER 
ONE BYTE AT A TIME. 



PAGE CROSSED? 

NO. MOVE NEXT BYTE. 

TEST FOR END OF BUFFER 

BUT FIRST ADJUST USER BUFFER POINTER 
AND POSITION. 



AND SOS BUFFER HIGH ADDRESS. 
(CARRY HAS BEEN CLEVERLY UNDISTURBED.) 
BRANCH IF MORE TO WRITE TO BUFFER. 
INDICATE NOT FINISHED. 
BRANCH ALWAYS. 



BRANCH IF REQEST SATISFIED. 

ARE WE DONE WITH THIS BLOCK OF DATA? 

BRANCH IF NOT. 

WHILE THIS IS REDUNDANT, IT'S NECESSARY FOR 
PROPER ADJUSTMENT OF REQUEST COUNT. 
(NOT FINISHED- OK TO ADJUST HI BYTE.) 
RESET MODIFIED Y 



; AND POSITION. 
; BUMP POINTERS. 



(SET V FLAG) 

SAVE LOW POSITION 

AND REMAINDER OF REQUEST COUNT. 
SAVE STATUSES 



; ADJUST USER'S LOW BUFFER ADDRESS 



ADJUST HI ADDRESS AS NEEDED. 
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016734 
016735 
016736 
016737 
016738 
016739 
016740 
016741 
016742 
016743 
016744 
016745 
016746 
016747 
016748 
016749 
016750 
016751 
016752 
016753 
016754 
016755 
016756 
016757 
016758 
016759 
016760 
016761 
016762 
016763 
016764 
016765 
016766 
016767 
016768 
016769 
016770 
016771 
016772 
016773 
016774 
016775 
016776 
016777 
016778 
016779 
016780 
016781 
016782 
016783 



WRPART4 



TOPDOWN 



TOPDWN1 



SAPDOWN 



TPDWNERR 

SAPDWN1 
SWAPDOWN 



JSR 

PLP 

RTS 

PAGE 

JSR 

BCS 

LDY 

LDA 

CMP 

BEQ 

JSR 

BCS 

JSR 

BCS 

LDA 

LSR 

TAY 

LDA 

TAX 

STA 

INC 

LDA 

STA 

DEC 

LDY 

STA 

TXA 

DEY 

STA 

JSR 

BCS 

JMP 

LDY 
LDA 
CMP 
BEQ 
JSR 
BCC 
RTS 

PAGE 
EQU 

JSR 
BCS 
LDY 
LDA 
PHA 
LDA 



FCBUSED 



SWAPDOWN 

TPDWNERR 

#FCBSTYP 

(FCBPTR) , Y 

#TRETYP 

TOPDWN1 

SWAPDOWN 

TPDWNERR 

ALCWBLK 

TPDWNERR 

TPOSHI 

A 

SCRTCH 

(TINDX) , Y 
TINDX+1 
SCRTCH+1 

(TINDX) , Y 
TINDX+1 
#FCBIDXB+1 

(FCBPTR) , Y 



(FCBPTR) , Y 
WFCBFST 
TPDWNERR 
ZTMPIDX 

#FCBSTYP 
(FCBPTR) , Y 
tSEEDTYP 
SAPDWN1 
RFCBFST 
TOPDWN1 



ALCWBLK 
SWAPERR 
#FCBFRST 
(FCBPTR) , Y 

SCRTCH 



SET DIRECTORY FLUSH BIT 
RESTORE RETURN STATUSES 



FIRST MAKE CURRENT 1ST BLOCK AN ENTRY IN NEW TOP. 
RETURN ANY ERRORS 

FIND OUT IF STORAGE TYPE HAS BEEN CHANGED TO 'TREE'. 
(IF NOT, ASSUME IT WAS ORIGINALLY A SEED AND 
BOTH LEVELS NEED TO BE BUILT. 

OTHERWISE, ONLY AN INDEX NEED BE ALLOCATED) 
MAKE PREVIOUS SWAP A SAP LEVEL INDEX BLOCK. 

; GET ANOTHER BLOCK ADDRESS FOR THE SAP LEVEL INDEX. 

; CALCULATE POSITION OF NEW INDEX BLOCK 
; IN THE TOP OF THE TREE. 

; GET ADDRESS OF NEWLY ALOCATED INDEX BLOCK AGAIN 



; SAVE HI ADDRESS 

; MAKE NEWLY ALLOCATED BLOCK THE CURRENT INDEX BLOCK. 



; SAVE NEW TOP OF TREE. 

; END BY RE-CLEARING CURRENT (NEW) INDEX BLOCK. 

FIND OUT IF WE'RE DEALING WITH A TREE 
OR A SIMPLE SEED. 

IF SEED THEN AN ADJUSTMENT TO FILE TYPE IS NECESSARY. 
BRANCH IF SEED. 

OTHERWISE READ IN TOP OF TREE. 
BRANCH IF NO ERROR. 
RETURN ERRORS 



; MAKE CURRENT SEED INTO A SAPLING 

ALLOCATE A BLOCK BEFORE SWAP 
RETURN ERRORS IMMEDIATELY. 
GET PREVIOUS FIRST BLOCK 
ADDRESS INTO INDEX BLOCK. 

SAVE TEMPORARLY WHILE SWAPPING IN NEW TOP INDEX 
GET NEW BLOCK ADDRESS (LOW) 
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016784 




TAX 






016785 




STA 


(FCBPTR) , Y 




016786 




INY 






016787 




LDA 


(FCBPTR) , Y 




016788 




PHA 






016789 




LDA 


SCRTCH+1 


; AND HIGH ADDRESS TOO. 


016790 




STA 


(FCBPTR) , Y 




016791 




LDY 


#FCBIDXB+1 


; MAKE NEW TOP ALSO THE CURRENT INDEX IN MEMORY. 


016792 




STA 


(FCBPTR) , Y 




016793 




TXA 




; GET LOW ADDRESS AGAIN 


016794 




DEY 






016795 




STA 


(FCBPTR) , Y 




016796 




LDY 


#0 


; MAKE PREVIOUS THE FIRST ENTRY IN SUB INDEX 


016797 




INC 


TINDX+1 




016798 




PLA 






016799 




STA 


(TINDX) , Y 




016800 




DEC 


TINDX+1 




016801 




PLA 






016802 




STA 


(TINDX) , Y 




016803 




JSR 


WFCBFST 


; SAVE NEW FILE TOP. 


016804 




BCS 


SWAPERR 




016805 




LDY 


#FCBSTYP 


; NOW ADJUST STORAGE TYPE 


016806 




LDA 


#1 


; BY ADDING 1 (THUS SEED BECOMES SAPLING BECOMES 


016807 




ADC 


(FCBPTR) , Y 




016808 




STA 


(FCBPTR) , Y 




016809 




LDY 


#FCBSTAT 




016810 




LDA 


(FCBPTR) , Y 


; MARK STORAGE TYPE MODIFIED. 


016811 




ORA 


#STPMOD 




016812 




STA 


(FCBPTR) , Y 




016813 




CLC 




; RETURN 'NO ERROR' STATUS. 


016814 


SWAPERR 


RTS 






016815 










016816 




PAGE 






016817 


ALCWBLK 


JSR 


ALC1BLK 




016818 




BCS 


ALUSERR 




016819 




LDY 


#FCBUSE 




016820 




LDA 


(FCBPTR) , Y 


; BUMP CURRENT USAGE COUNT BY 1. 


016821 




CLC 






016822 




ADC 


#1 




016823 




STA 


(FCBPTR) , Y 




016824 




BCC 


INCUSG1 




016825 




INY 






016826 




LDA 


(FCBPTR) , Y 




016827 




ADC 


#0 




016828 




STA 


(FCBPTR) , Y 




016829 


INCUSG1 


LDY 


#FCBSTAT 


; MARK USAGE AS MODIFIED. 


016830 




LDA 


(FCBPTR) , Y 




016831 




ORA 


#USEMOD 




016832 




STA 


(FCBPTR) , Y 




016833 




CLC 




; INDICATE NO ERROR 



Apple / // Sophisticated Operating System (SOS) 1.3 Source Code Listing » PTC 8/ 2001 » Page 362 of 391 



Apple / / / Computer I nformation 



016834 


ALUSERR 


RTS 






; ALL DONE 


016835 












016836 


TSTWPROT 


LDY 


#FCBSTAT 




; CHECK FOR A 'NEVER BEEN MODIFIED' CONDITION 


016837 




LDA 


(FCBPTR) , Y 




; GET STATUS BYTE 


016838 




AND 


#USEMOD+DATMOD+IDXMOD+EOFMOD 


016839 




CLC 






; ANTICIPATE WRITE OK 


016840 




BNE 


ALUSERR 




; ORDINARY RTS 


016841 




LDY 


#FCBDEVN 




; GET FILE'S DEVICE NUMBER 


016842 




LDA 


(FCBPTR) , Y 






016843 




STA 


DEVNUM 




; GET CURRENT STATUS OF BLOCK DEVICE 


016844 


TWRPROT1 


LDA 


#STATCMD 






016845 




STA 


DHPCMD 






016846 




LDA 


#STATSUB 




; STORE SUB COMMAND OF STATUS CALL 


016847 




STA 


DSTATREQ 






016848 




LDA 


#>TWRCODE 






016849 




STA 


DSTATBFL 




; FETCH RETURN CODE IN SCRATCH AREA 


016850 




LDA 


#<TWRCODE 






016851 




STA 


DSTATBFH 






016852 




LDA 


#0 




; MAKE SURE REGULAR RAM IS SELECTED (NO BANKS) 


016853 




STA 


SISDSTAT 






016854 




STA 


SERR 




; CLEAR GLOBAL ERROR FLAG 


016855 




LDA 


DEVNUM 




; SET UP LAST PARM 


016856 




STA 


UNITNUM 




; FOR DEVICE CALL 


016857 




JSR 


DMGR 




; MAKE THE EXTERNAL CALL 


016858 




BCS 


WPROTRET 




; RETURN ANY SPECIFIC ERRORS 


016859 




LDA 


TWRCODE 




; GET STATUS BYTE 


016860 




LSR 


A 




; SHIFT WRITE PROTECT STATE INTO CARRY 


016861 




LSR 


A 






016862 




LDA 


#XNOWRITE 




; ANTICIPATE WRITE PROTECTED. 


016863 




RTS 






; CARRY IS INDETERMINATE 


016864 


WPROTRET 


EQU 








016865 




CMP 


#XDISKSW 




; IF EXPLICITLY DISK SWITCH 


016866 




BNE 


WPROT1 




; BRANCH IF XNODRIVE OR XNOWRITE 


016867 




STA 


DSWGLOB 




; IF DISKSW, FLAG UNTIL ENTIRE OPERATION IS COMPLETE 


016868 




CLC 








016869 




RTS 






; DISKSWITCH DOESNT SET CARRY 


016870 


WPROT1 


SEC 








016871 




RTS 








016872 


DSWGLOB 


DS 


1 




; DISK SWITCH GLOBAL 


016873 


TWRCODE 


DS 


1 




; A RARE EMBEDDED TEMP STORE 


016874 












016875 




PAGE 








016876 












016877 


* MEMORY 


WRAP-AROUND ' 


ADJUST ROUTINE 


THIS ROUTINE ADJUSTS 


016878 


* ADDRESSES THAT CROSS 


BANK PAIR BOUNDARIES. ON ENTRY, X CONTAINS 


016879 


* THE OFFSET OF THE ZERO PAGE EXTENDED POINTER 


TO BE ADJUSTED. 


016880 


* ON EXIT, 


THE POINTER 


WILL HAVE BEEN 


ADJUSTED, 


IF NECESSARY, 


016881 


* AND THE 


ASSOCIATED X- 


-BYTE WILL ALSO 


HAVE BEEN ADJUSTED. 


016882 


* ONLY ADDRESSES IN THE RANGE S8200-$8E00 WILL 


BE ADJUSTED. 


016883 
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016884 
016885 
016886 
016887 
016888 
016889 
016890 
016891 
016892 
016893 
016894 
016895 
016896 
016897 
016898 
016899 
016900 
016901 
016902 
016903 
016904 
016905 
016906 
016907 
016908 



UPON EXIT, A CONTAINS HIGH BYTE OF ADDRESS 
THIS ROUTINE LEAVES X UNCHANGED. 



WRAP AD J 



WRAPDNE 



LDA 
LDY 
BPL 
CMP 
BCC 
CPY 
BCS 
AND 
STA 
INC 
INY 

RTS 

CHN 



1,X 

SISTER+1,X 

WRAPDNE 

#$82 

WRAPDNE 

#$8F 

WRAPDNE 

#$7F 

1,X 

SISTER+1,X 



CLOSE/EOF, 4, 2 



& Y CONTAINS UPDATED X-BYTE . 



GET HIGH ADDRESS BYTE <SRS 82.162> 

CHECK X-BYTE <SRS 82.162> 

NOT AN EXTENDED ADDRESS. <SRS 82.162> 

DOES IT NEED UPDATING? <SRS 82.162> 

NO <SRS 82.162> 

SPECIAL BANK? <SRS 82.162> 

NO <SRS 82.162> 

ADJUST THE ADDRESS <SRS 82.162> 
UPDATE <SRS 82.162> 
INCREMENT X-BYTE <SRS 82.162> 
UPDATE Y ALSO <SRS 82.162> 

RETURN VALID HIGH ADDRESS AND BANK BYTE. 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: READ. WRITE 

********************************************************************** 
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016909 
016910 
016911 
016912 
016913 
016914 
016915 
016916 
016917 
016918 
016919 
016920 
016921 
016922 
016923 
016924 
016925 
016926 
016927 
016928 
016929 
016930 
016931 
016932 
016933 
016934 
016935 
016936 
016937 



DOCUMENT : SOS1 . 3 . 4of 5 . FOUR: SOS . SWAPOUT . IN . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: SWAPOUT. IN 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



SWAPOUT 



EQU 



SWAP OUT A VOLUME LOGGED ON A DEVICE 
INPUT ARGUMENT: DEVICE NUMBER "A" 
(STORED AS "DEVNUM") 
OUTPUT ARGUMENT: NONE 

CONDITION CODE: CARRY SET USER DID NOT COMPLY WITH REQUEST 

SAVE VCBPTR, FCBPTR, DEVNUM ON STACK 

1) FIND UNSWAPPED VOLUME IN VCB 

2) IF DIRTY BIT MAP FOR THIS VOLUME THEN DO 
IF NOT ONLINE, REQUEST USER TO INSERT 

IF REQUEST DENIED, UNCONDITIONALLY CLOSE ALL FILES ON THIS VOLUME AND RTS 

IF ONLINE, UPDATE AND RELEASE BIT MAP 

DOEND 

3) SWAP IT (MARK VCBSWAP FIELD $80, MARK ALL FILES ON THIS VOLUME WITH SWAP MARK $8X WHERE X=VCB ENTRY) 
"VCB ENTRY" DEFINED AS: HIGH ORDER NIBBLE OF LOW ORDER BYTE OF ENTRIES VCB ADDRESS 

RESTORE VCBPTR, FCBPTR 

RTS 



016938 




TAX 




; SAVE DEVICE NUMBER 


016939 




JSR 


SAVECBS 




016940 




STX 


DEVNUM 


; PERMANENTLY 


016941 


SWAPOUTX 


JSR 


DEWCB 


; FIND MATCHING UNSWAPPED ACTIVE VCB ENTRY 


016942 




BCS 


SORTS 


; NO FIND — RETURN WITHOUT ERROR 


016943 




LDY 


#VCBSTAT 




016944 




LDA 


(VCBPTR) , Y 


; GET STATUS OF FILES ON THIS VOLUME 


016945 




BPL 


UNLOG 


; IF NO OPEN FILES, JUST THROW VOLUME AWAY 


016946 




LDA 


DEVNUM 


; DIRTY BM EXIST ON THIS VOLUME? 


016947 




LDX 


#0 




016948 




CMP 


BMADEV, X 


; IN BIT MAP "A"? 


016949 




BEQ 


FDIRBM 


; BRANCH IF YES 


016950 




LDX 


#6 


; BIT MAP HEADER TABLE SIZE 


016951 




CMP 


BMADEV, X 


; IN BIT MAP "B" ? 


016952 




BEQ 


FDIRBM 


; BRANCH IF YES 


016953 




JMP 


MARKSWAP 


; NO NEED TO WRITE BIT MAP 


016954 


FDIRBM 


LDA 


BMASTAT, X 


; IS BIT MAP DIRTY? 


016955 




BPL 


MARKSWAP 


; BRANCH IF NOT 


016956 


GETVOL 


JSR 


VERFYVOL 


; IS THE CORRECT VOLUME ON LINE NOW? 


016957 




BCC 


VONLINE 


; BRANCH IF YES 
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016958 




JSR 




USRREQ 






OTHERWISE, REQUEST USER INSERTION 


016959 




BCC 




GETVOL 






AND VERIFY IT AGAIN 


016960 




JSR 




CLOSEU 






USER SAID "NO" : UNCONDITIONALLY CLOSE 


016961 




JSR 




RESTCBS 








016962 




SEC 












016963 




RTS 










ERROR RETURN TO CALLER 


016964 


VONLINE LDX 




DEVNUM 






UPDATE THE 


016965 




JSR 




UPBMAP 






DIRTY BIT MAP 


016966 


MARKSWAP LDA 




VCBPTR 






CALCULATE 


016967 




LSR 




A 






SWAP BYTE 


016968 




LSR 




A 






AND 


016969 




LSR 




A 






MARK ALL FILES 


016970 




LSR 




A 






BELONGING TO THIS VOLUME 


016971 




SEC 










AS SWAPPED OUT 


016972 




ORA 




#$80 








016973 




PHA 










SAVE SWAP BYTE 


016974 




JSR 




FCBSCAN 








016975 




PLA 










MARK VCBSWAP 


016976 




LDY 




#VCBSWAP 






BYTE 


016977 




STA 




(VCBPTR) , Y 








016978 


SORTS JSR 




RESTCBS 






RESTORE FCBPTR, VCBPTR, DEVNUM 


016979 




CLC 












016980 




RTS 










SUCCESSFUL SWAP OUT 


016981 


UNLOG LDA 




#0 








016982 




STA 




VCB, X 






UNLOG VOLUME 


016983 




BEQ 




SORTS 






SWAP THE EASY WAY! (BRANCH ALWAYS) 


016984 


* 














016985 


* 














016986 
















016987 


SWAP IN EQU 












016988 
















016989 


* 


UNSWAP A VOLUME AND 


ALL 


ITS FILES 








016990 
















016991 




INPUT ARGUMENT: VOLUME 


NAME (VCBPTR) 








016992 




OUTPUT ARGUMENT: NONE 










016993 




CONDITION CODE: CARRY SET : USER DID NOT 


COMPLY WITH REQUEST 


016994 
















016995 




SAVE VCBPTR, FCBPTR 


ON 


STACK 








016996 


* 


1) FIND SWAPPED VOLUME 


IN VCB, IF NOT 


FOUND, THEN RTS. 


016997 




2) IF ANOTHER UNSWAPPED 


VOLUME ON DEVICE, 


THEN 


SWAP IT 


016998 




3) VERIFY UNSWAPPED 


VOLUME, IF NOT OK 


THEN REQUEST INSERTION 


016999 


* 


4) UNMARK VCB'S AND 


FCB'S 








017000 




RTS 












017001 




JSR 




SAVECBS 






SAVE FCB, VCB POINTERS, DEVNUM 


017002 




LDY 




tVCBNML 






MAKE SURE VOLUME 


017003 




LDA 




(VCBPTR) , Y 






IS AT LEAST OPEN 


017004 




BEQ 




USRTS 






BRANCH IF NOT RIGHT BACK TO CALLER 


017005 




LDY 




#VCBSWAP 






SEE IF 


017006 




LDA 




(VCBPTR) , Y 






CURRENTLY SWAPPED 


017007 




BEQ 




USRTS 






IF NOT, RETURN IMMEDIATELY TO CALLER 
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017008 
017009 
017010 
017011 
017012 
017013 
017014 
017015 
017016 
017017 
017018 
017019 
017020 
017021 
017022 
017023 
017024 
017025 
017026 
017027 
017028 
017029 
017030 
017031 
017032 
017033 
017034 
017035 
017036 
017037 
017038 
017039 
017040 
017041 
017042 
017043 
017044 
017045 
017046 
017047 
017048 
017049 
017050 
017051 
017052 
017053 
017054 
TWICE . 
017055 
017056 



SI1 



UNMARK 



USRTS 



SAVEPTRS 



SAVECBS 



LDY 
LDA 
STA 
PHA 
JSR 
PLA 
STA 
JSR 
BCC 
JSR 
BCC 
JSR 
JSR 
SEC 
RTS 
LDY 
LDA 
PHA 
LDA 
STA 
PLA 
CLC 
JSR 
LDA 
JSR 
JSR 
CLC 
RTS 

DS 



EQU 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
RTS 



#VCBDEV 
(VCBPTR) , Y 
DEVNUM 

SWAPOUTX 

DEVNUM 

VERFYVOL 

UNMARK 

USRREQ 

SI1 

CLOSEU 
RESTCBS 



#VCBSWAP 
(VCBPTR) , Y 

#0 

(VCBPTR) , Y 



FCBSCAN 
DEVNUM 
CLEARBMS 
RESTCBS 



VCBPTR 

SAVEPTRS 

VCBPTR+1 

SAVEPTRS+1 

FCBPTR 

SAVEPTRS+2 

FCBPTR+1 

SAVEPTRS+3 

DEVNUM 

SAVEPTRS+4 



; SAVE DEVICE NUMBER 



SAVE DEVNUM AGAIN (SWAPOUTX TRASHES DEVNUM ON RETURN) 

AND MAKE SURE ANY CURRENT ACTIVE VOLUME IS SWAPPED OUT (NOTICE ENTRY POINT) 

RECALL CURRENT DEVICE NUMBER 

AND SAVE IT TO ITS PROPER PLACE 

VERIFY THE CURRENT VOLUME MOUNTED 

IF THE RIGHT ONE, GO MARK IT AS UNSWAPPED 

ELSE REQUEST USER TO INSERT 

USER SAID 'OK' 

OTHERWISE UNCONDITIONALLY CLOSE 



FETCH 
VOLUME 
SWAP BYTE 
BUT CLEAR 
VOLUME SWAP 

" UNSWAPPED" 

MAKE SURE BIT MAPS 

ARE MARKED AS INVALID ON THIS DEVICE 
RESTORE VCB, FCB PTRS 
NO ERRORS 



; A RARE EMBEDDED TEMP SAVE AREA, USED ONLY BY 



; SAVE FCBPTR, VCBPTR IN A TEMP SAVE AREA 



RESTCBS EQU * 

* NOTICE THERE EXISTS A SEQUENCE OF CALLS 



; RESTORE FCBPTR, VCBPTR 
(SWAPIN, WHICH MAY CALL SWAPOUT) THAT JSR'S TO SAVECBS ONCE BUT JSR'S RESTCBS 



LDA 
STA 



SAVEPTRS 
VCBPTR 
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017057 


LDA 


SAVEPTRS+1 




017058 


STA 


VCBPTR+1 




017059 


LDA 


SAVEPTRS+2 




017060 


STA 


FCBPTR 




017061 


LDA 


SAVEPTRS+3 




017062 


STA 


FCBPTR+1 




017063 


LDA 


SAVEPTRS+4 




017064 


STA 


DEVNUM 




017065 


RTS 






017066 








017067 








017068 


* MARK ALL FILES BELONGING 


TO A VOLUME 




017069 


* AS SWAPPED- IN OR SWAPPED- 


-OUT. 




017070 


* 






017071 


* INPUT ARGS: DEVNUM — DEVICE NUMBER OF MOUNTED 


VOLUME 


017072 


* A REGISTER - 


SWAP BYTE 




017073 


* CARRY — CARRY FLAG SET MEANS SWAP 


OUT; ELSE SWAP IN 


017074 








017075 


* OUTPUT ARGS: NONE 






017076 


* GLOBALS AFFECTED: FCB, FCBPTR 




017077 


* REGISTER STATUS: SCRAMBLED 




017078 


* 






017079 


FCBSCAN EQU 


* 


MARK FILES BELONGING TO VOLUME AS 


017080 








017081 


TAX 




SAVE SWAP BYTE 


017082 


LDY 


FCBADDRH 


POINT TO 


017083 


STY 


FCBPTR+1 


BEGINNING TO FCB 


017084 


LDY 


#0 




017085 


STY 


FCBPTR 




017086 


BCS 


FCBOUT 


SWAP OUT A VOLUMES FILES 


017087 


FCBIN EQU 




SWAPIN A VOLUMES FILES 


017088 


JSR 


FCBFETCH 


GET NEXT ACTIVE FCB CANDIDATE 


017089 


BCS 


FCBRTS 


NO MORE FILES TO PROCESS 


017090 


LDY 


#FCBSWAP 




017091 


TXA 






017092 


CMP 


(FCBPTR) , Y 


SWAP BYTES MATCH? 


017093 


BNE 


FCBIN1 


BRANCH IF NOT 


017094 


LDA 


#0 




017095 


STA 


(FCBPTR) , Y 


MARK FILE AS SWAPPED IN 


017096 


FCBIN1 JSR 


NEXTFCB 


ADVANCE FCB POINTER 


017097 


BCS 


FCBRTS 


NO MORE TO LOOK AT 


017098 


JMP 


FCBIN 


AND LOOK AT NEXT FILE 


017099 


* 






017100 


FCBOUT EQU 




SWAPPED OUT A VOLUMES FILES 


017101 


JSR 


FCBFETCH 


GET NEXT ACTIVE FILE IN FCB 


017102 


BCS 


FCBRTS 


NO MORE FILES — RETURN TO USER 


017103 


LDY 


#FCBSWAP 


COMPARE 


017104 


LDA 


(FCBPTR) , Y 




017105 


BNE 


FCBOUT1 


ALREADY SWAPPED OUT 


017106 


TXA 
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017107 




STA 


(FCBPTR) , Y 




MARK AS SWAPPED 


017108 


FCBOUT1 JSR 


NEXTFCB 




ADVANCE FCB POINTER 


017109 




BCS 


FCBRTS 






017110 




JMP 


FCBOUT 




SWAP OUT NEXT FILE 


017111 












017112 


FCBRTS RTS 








017113 


FCBFETCH EQU 


* 




GET NEXT ACTIVE FILE FROM FCB 


017114 




X REGISTER MUST NOT BE 


DISTURBED 






017115 




USES FCBPTR 








017116 




LDY 


#FCBDEVN 




MAKE 


017117 




LDA 


(FCBPTR) , Y 




SURE DEVICE 


017118 




CMP 


DEVNUM 




MATCHES 


017119 




BNE 


NEXTFCB 






017120 




LDY 


#FCBREFN 




MAKE SURE FILE IS ACTIVE 


017121 




LDA 


(FCBPTR) , Y 






017122 




BEQ 


NEXTFCB 




BRANCH IF NOT 


017123 




CLC 








017124 




RTS 






RETURN WITH CARRY CLEAR SHOWING AN 


017125 


NEXTFCB LDA 


FCBPTR 






017126 




CLC 








017127 




ADC 


#$20 




FCB ENTRY SIZE 


017128 




STA 


FCBPTR 






017129 




BCC 


FCBFETCH 




BRANCH IF NO PAGE CROSS 


017130 




LDA 


FCBPTR+1 






017131 




INC 


FCBPTR+1 




SECOND PAGE 


017132 




CMP 


FCBADDRH 






017133 




BEQ 


FCBFETCH 




LOOK AT PAGE TWO 


017134 


NEXTEND SEC 








017135 




RTS 






SHOW NO MORE FILES TO LOOK AT 


017136 


USRREQ EQU 






OPERATOR CONSOLE MESSAGE INTERFACE 


017137 




PRODUCES A MESSAGE REQUESTING 






017138 




THE SYSTEM OPERATOR TO 


MOUNT THE VOLUME 






017139 


* 


SPECIFIED BY "VCBPTR" ON DEVICE SPECIFIED 






017140 


* 


BY DEVNUM. THIS MODULE 


INSISTS 






017141 


* 


UPON THE CORRECT OPERATOR ACTION 






017142 


* 


UPON THREE FAILURES TO 


COMPLY, 






017143 




THE MODULE WILL SIGNIFY FAILURE WITH 






017144 


* 


CARRY SET. IF THE CORRECT ACTION IS TAKEN, 






017145 


* 


CARRY WILL BE RETURNED 


CLEAR 






017146 












017147 




INPUT ARGS: VOLUME NAME 


(VCBPTR) 






017148 




DEVICE NUMBER (DEVNUM) 






017149 


* 










017150 




OUTPUT ARGS: CC = OPERATOR COMPLIED WITH REQUESTED ACTION 


017151 




CS = OPERATOR COULDN'T/DIDN'T 


COMPLY 


017152 












017153 


* 


GLOBALS AFFECTED: NONE 








017154 












017155 


* 


STATUS OF REGISTERS: UNCERTAIN 






017156 
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017157 


VNML 


EQU 


ZPGTEMP 


VOLUME NAME LENGTH 


017158 




LDY 


#VCBNML 


IF ILLEGAL VCB 


017159 




LDA 


(VCBPTR) , Y 


GET OUT QUICK 


017160 




BEQ 


NEXTEND 


BRANCH TO SEC RTS 


017161 




LDX 


#$E 


LENGTH OF NAMED AREA-1 


017162 




LDA 


#$0 


NULLS 


017163 


UR1 


STA 


MDEV, X 


BOTH CLEAR 


017164 




STA 


MVOL,X 


IN ONE LOOP 


017165 




DEX 






017166 




BPL 


UR1 




017167 










017168 


* DO A D-INFO 


TO FETCH 


THE DEVICE NAME 




017169 


* 








017170 




LDA 


#5 


DO ALL 


017171 




STA 


$C0 


NECESSARY 


017172 




LDA 


DEVNUM 


HOUSKEEPING 


017173 




STA 


$C1 


TO SET UP 


017174 




LDA 


#>MDEV-1 


A DEVICE MANAGER CALL 


017175 




STA 


$C2 




017176 




LDA 


#<MDEV-1 




017177 




STA 


$C3 




017178 




LDA 


#$8F 


EXTEND BYTE 


017179 




STA 


$14C3 




017180 




LDA 


#0 




017181 




STA 


$14C2 




017182 




STA 


$C4 




017183 




STA 


$C5 




017184 




STA 


$C6 


ZERO SUPERFLUOUS PARMS 


017185 




STA 


URDERR 


RESET FAILURE COUNT 


017186 




JSR 


RPEATIO0 


GET INFO FROM BOBS CODE 


017187 




LDA 


#$20 


"SPACE" RESTORED 


017188 




STA 


MDEV-1 


RESTORED 


017189 




LDY 


#VCBNML 




017190 




LDA 


(VCBPTR) , Y 


LENGTH OF VOLUME NAME 


017191 




STA 


VNML 


SAVED FOR WORK 


017192 




LDA 


#0 




017193 




TAX 






017194 




LDY 


#VCBNAM 


POINT TO BEGINNING OF VOLUME 


017195 


UR2 


LDA 


(VCBPTR) , Y 




017196 




STA 


MVOL,X 




017197 




INX 






017198 




INY 




VOLUME NAME MOVED 


017199 




DEC 


VNML 


TO MESSAGE BUFFER 


017200 




BNE 


UR2 


CHARACTER BY CHARACTER 


017201 


URDU 


LDX 


#>UMB 


PASS THE AREA'S ADDR 


017202 




LDY 


#<UMB 


IN X AND Y REGS, LOW, HIGH) 


017203 




JSR 


OPMSGRPLY 


HAVE MESSAGE SYSTEM PRINT IT 


017204 




JSR 


VERFYVOL 


DID THE USER COMPLY? 


017205 




BCS 


URDU1 


BRANCH IF NOT 


017206 




RTS 




EXIT — CARRY IS CLEAR 
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017207 


URDU1 INC 


URDERR 


017208 




LDA 


URDERR 


017209 




CMP 


#3 


017210 




BCC 


URDU 


017211 




RTS 




017212 


* 






017213 


* 






017214 


* 






017215 








017216 








017217 




CLOSE UNCONDITIONAL 




017218 








017219 


* 


(USER HAS REPLIED 'N' TO 


A VOLUME M 


017220 




CLOSE ALL FILES ON VOLUME/UNLOG VOL 


017221 


* 






017222 


* 


INPUT ARGUMENT: (VCBPTR) 




017223 




OUTPUT ARGUMENT: NONE 




017224 








017225 


CLOSEU EQU 


* 


017226 


VSWA EQU 


ZPGTEMP 


017227 




LDY 


#VCBDEV 


017228 




LDA 


(VCBPTR) , Y 


017229 




STA 


DEVNUM 


017230 




LDY 


#VCBSWAP 


017231 




LDA 


(VCBPTR) , Y 


017232 




STA 


VSWA 


017233 




LDA 


#0 


017234 




LDY 


#VCBNML 


017235 




STA 


(VCBPTR) , Y 


017236 




LDY 


#VCBSWAP 


017237 




STA 


(VCBPTR) , Y 


017238 




LDY 


FCBADDRH 


017239 




STY 


FCBPTR+1 


017240 




LDY 


#0 


017241 




STY 


FCBPTR 


017242 


VFCBLOP LDY 


#FCBDEVN 


017243 




LDA 


(FCBPTR) , Y 


017244 




CMP 


DEVNUM 


017245 




BNE 


VFCBNXT 


017246 




LDY 


#FCBREFN 


017247 




LDA 


(FCBPTR) , Y 


017248 




BEQ 


VFCBNXT 


017249 




LDY 


#FCBSWAP 


017250 




LDA 


(FCBPTR) , Y 


017251 




CMP 


VSWA 


017252 




BNE 


VFCBNXT 


017253 




LDY 


#FCBBUFN 


017254 




LDA 


(FCBPTR) , Y 


017255 




JSR 


RELBUF 


017256 




LDY 


#FCBSWAP 



COLLECT USER ERRORS 
ONLY THREE TRIES ALLOWED 

RETRY MESSAGE IF LESS THAN THREE TRIES 
OTHERWISE RETURN WITH CARRY SET 



REQUEST 



THE 'SWAP BYTE' STORED HERE 
FETCH 

THE DEVICE NUMBER 

OF THIS VOLUME & SAVE IT 

FETCH THE 

SWAP BYTE 

SAVE FOR REFERENCE, TOO 
UNLOG THE VOLUME 

BY SETTING LEN OF VOL NAME TO ZERO 
TURN OFF SWAP FLAG 

SET UP FCB SCAN FROM BEGINNING OF FCB 



FETCH 
THE DEVICE 

NUMBER AND SEE IF A MATCH 
BRANCH IF NO MATCH 
SEE EVEN IF FILE OPEN 

; BRANCH IF NOT 

; CHECK TO SEE IF ATTACHED 

; TO SAME VOLUME 

BRANCH IF NOT 
RELEASE 
ANY 

BUFFERS ASSOCIATED 
AND CLEAR 
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017257 
017258 
017259 
017260 
017261 
017262 
017263 
017264 
017265 
017266 
017267 
017268 
017269 
017270 
017271 
017272 
017273 
017274 
017275 
017276 
017277 
017278 
017279 
017280 
017281 
017282 
017283 
017284 
017285 
017286 
017287 
017288 
017289 
017290 
017291 
017292 
017293 
017294 
017295 
017296 
017297 
017298 
017299 
017300 
017301 
017302 
017303 
017304 
017305 
017306 



VFCBNXT 



FCBUSED 



URDERR 



LDA 
STA 
LDY 
STA 
LDA 
CLC 
ADC 
STA 
BCC 
LDA 
INC 
CMP 
BEQ 
RTS 

EQU 

STY 
PHA 
LDY 
LDA 
ORA 
STA 
PLA 
LDY 
RTS 

DS 



MVOL 



KDEV 



#0 

(FCBPTR) , Y 
#FCBREFN 

(FCBPTR) , Y 
FCBPTR 

#$20 

FCBPTR 

VFCBLOP 

FCBPTR+1 

FCBPTR+1 

FCBADDRH 

VFCBLOP 



ZPGTEMP 

tFCBDIRTY 
(FCBPTR) , Y 
#FCBMOD 
(FCBPTR) , Y 

ZPGTEMP 



; THE SWAP BYTE 

; AND FINALLY 
; SAY 'CLOSED' 



; FCB ENTRY SIZE 



; LOOK AT SECOND PAGE 

; CHECK PAGE TWO OF FCB 

; RETURN TO USER W/O ERROR 

; MARK AS FCB AS DIRTY SO 

THE DIRECTORY WILL BE FLUSHED ON 'FLUSH' 

; SAVE REGS 

; FETCH CURRENT FCBDIRTY BYTE 

; MARK FCB AS DIRTY 

; SAVE IT BACK 

; AND RESTORE REGS 



; ERROR COUNT FOR USRREQ 



UMB EQU * 

DFB $49, $6E, $73, $65, $72, $74, $20 

DFB $76, $6F, $6C, $75, $6D, $65 

DFB $3A, $20 ; "INSERT VOLUME: " 

DS 15 

DFB $0D ; CR LINE TERMINATOR 

DFB $20, $20, $20, $20, $69, $6E, $20 

DFB $64, $65, $76, $69, $63, $65 

DFB $3A, $20 ; " IN DEVICE: " 

DS 15 

DFB $0D ; CR LINE TERMINATOR 

DFB $74, $68, $65, $6E, $20, $70, $72 

DFB $65, $73, $73, $20, $74, $68, $65, $20 

DFB $41, $4C, $50, $48, $41, $20, $4C 

DFB $4F, $43, $4B, $20, $6B, $65, $79 

DFB $20, $74, $77, $69, $63, $65 
"THEN PRESS THE ALPHA LOCK KEY TWICE" 

FOLLOWED WITH $FF MESSAGE TERMINATOR (HIGH BIT SIGNIFICANT) 

DFB $FF ; MESSAGE TERMINATOR (HIGH BIT) 



Apple / // Sophisticated Operating System (SOS) 1.3 Source Code Listing » PTC 8/ 2001 » Page 372 of 391 



Apple/// Computer I nformation 



017307 
017308 
017309 
017310 
017311 
017312 
017313 
017314 
017315 
017316 
017317 



ZZLEN 
ZZEND 



EQU 

EQU 

IFNE 

FAIL 

FIN 



*-ZZORG 

ZZLEN-LENBFM 
2, "SOSORG 



FILE IS INCORRECT FORMBFM" 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SWAPOUT.IN 

************************************************************************* 
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017318 
017319 
017320 
017321 
017322 
017323 
017324 
017325 
017326 
017327 
017328 
017329 
017330 
017331 
017332 
017333 
017334 



DOCUMENT : SOS1 . 3 . 5of 5 . FIVE : SOS . C . BI2 . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: C.BI2 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

: TABS 17,23,40 
::PR#1,L58 132N 

SL4 : DR1 :ASM BFM. INIT2 . SRC, BFM . INIT2 . OB J, 6, 1 

************************************************************************* 

* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: C.BI2 

************************************************************************* 
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017335 
017336 
017337 
017338 
017339 
017340 
017341 
017342 
017343 
017344 
017345 
017346 
017347 
017348 
017349 
017350 
017351 
017352 
017353 



DOCUMENT : SOS1 . 3 . 5of 5 . FIVE : SOS . C . S . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: C.S 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

: TABS 17,23,40 
::PR#1,L58 132N 

SL4 : DR2 :ASM BUFMGR . SRC , BUFMGR . OBJ, 6, 1 
SL4 : DR2 :ASM MEMMGR. A. SRC, MEMMGR. OBJ, 6, 1 
END 

************************************************************************* 

* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: C.S 

************************************************************************* 
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017354 
017355 
017356 
017357 
017358 
017359 
017360 
017361 
017362 
017363 
017364 
017365 
017366 
017367 
017368 
017369 
017370 
017371 
017372 
017373 



DOCUMENT : SOS1 . 3 . 5of 5 .FIVE : SOS . C3 . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: C3 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

: TABS 17,23,40 
::PR#1,L58 132N 

SL4 : DR1 :ASM SOSLDR.SRC, SOSLDR.OBJ, 6, 1 
SL4 : DR2 : ASM BUFMGR . SRC , BUFMGR . OB J, 6 , 1 
SL4 : DR2 :ASM MEMMGR. A. SRC, MEMMGR. OBJ, 6, 1 

END 

************************************************************************* 

* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: C3 

************************************************************************* 
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017374 
017375 
017376 
017377 
017378 
017379 
017380 
017381 
017382 
017383 
017384 
017385 
017386 
017387 
017388 
017389 
017390 
017391 
017392 
017393 



DOCUMENT : SOS1 . 3 . 5of 5 . FIVE : SOS . COMP . OPR. IPL . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: COMP. OPR. IPL 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

: TABS 17,23,40 
::PR#1,L58 132N 

SL4 : DR1 :ASM OPRMSG.SRC, OPRMSG.OBJ, 6, 1 
SL4:DR1:ASM IPL . SRC1 , IPL . OBJ, 6, 1 
SL4 : DR1 :A, 6, 1 

END 

************************************************************************* 

* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: COMP. OPR. IPL 

************************************************************************* 
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017394 
017395 
017396 
017397 
017398 
017399 
017400 
017401 
017402 
017403 
017404 
017405 
017406 
017407 
017408 
017409 
017410 
017411 
017412 
017413 
017414 
017415 
017416 
017417 
017418 
017419 
017420 
017421 
017422 
017423 
017424 
017425 



DOCUMENT : SOS1 . 3 . 5of 5 . FIVE : SOS . COMP . SOS . NOLIST . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: COMP . SOS .NOLIST 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



: TABS 17,23,40 

SL4 : DR1 :ASM SOSLDR.SRC, SOSLDR.OBJ, 6, 1 

SL4 : DR1 :ASM INIT. SRC, INIT.OBJ, 6, 1 

SL4 : DR1 :ASM SYSGLOB.SRC, SYSGLOB.OBJ, 6, 1 

SL4 : DR1 :ASM OPRMSG.SRC, OPRMSG.OBJ, 6, 1 

SL4 : DR1 :ASM BFM. INIT2 . SRC, BFM . INIT2 . OB J, 6, 1 

SL4:DR1:ASM IPL . SRC1 , IPL . OBJ, 6, 1 

SL4 : DR1 : ASM UMGR . SRC , UMGR . OB J, 6 , 1 

SL4 : DR2 :ASM DISK3 . SRC, DISK3 . OB J, 6, 1 

SL4 : DR2 :ASM SYSERR.SRC, SYSERR.OBJ, 6, 1 

SL4 : DR2 :ASM SCMGR.SRC, SCMGR.OBJ, 6, 1 

SL4 : DR2 : ASM FMGR . SRC , FMGR . OB J, 6 , 1 

SL4 : DR2 : ASM CFMGR . SRC , CFMGR . OBJ, 6, 1 

SL4 : DR2 :ASM DEVMGR. SRC, DEVMGR.OBJ, 6, 1 

SL4 : DR2 : ASM BUFMGR . SRC , BUFMGR . OB J, 6 , 1 

SL4 : DR2 :ASM MEMMGR. A. SRC, MEMMGR. OBJ, 6, 1 

END 

************************************************************************* 

* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: COMP . SOS .NOLIST 

************************************************************************* 
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017426 
017427 
017428 
017429 
017430 
017431 
017432 
017433 
017434 
017435 
017436 
017437 
017438 
017439 
017440 
017441 
017442 
017443 



DOCUMENT : SOS1 . 3 . 5of 5 . FIVE : SOS . COMPILE . BFM . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: COMPILE. BFM 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



T 17, 23, 40 
PR#1,L58 132N 
SL4:DR1:ASM PRINT, BFM. OBJ, 6, 1 
END 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: COMPILE. BFM 

************************************************************************* 
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017444 ========================================================================== 

017445 DOCUMENT : SOS1 . 3 . 5of 5 . FIVE : SOS . COMPILE . SOS . TEXT 

01744 6 ========================================================================== 

017447 

017448 ************************************************************************* 

017449 * APPLE /// SOS 1.3 SOURCE CODE FILE: COMPILE. SOS 

017450 ************************************************************************* 

017451 * ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
017452 

017453 : TABS 17,23,40 

017454 ::PR#1,L58 132N 

017455 SL4:DR1:ASM SOSLDR. SRC, SOSLDR.OBJ, 6, 1 

017456 SL4:DR1:ASM INIT . SRC, INIT . OBJ, 6, 1 

017457 SL4:DR1:ASM SYSGLOB . SRC, SYSGLOB . OBJ, 6, 1 

017458 SL4:DR1:ASM BFM. INIT2 . SRC, BFM . INIT2 . OB J, 6, 1 

017459 SL4:DR1:ASM OPRMSG . SRC, OPRMSG . OB J, 6, 1 

017460 SL4:DR1:ASM IPL . SRC1 , IPL . OBJ, 6, 1 

017461 SL4:DR2:ASM UMGR. SRC, UMGR . OB J, 6, 1 

017462 SL4:DR2:ASM DISK3 . SRC, DISK3 . OBJ, 6, 1 

017463 SL4:DR2:ASM SYSERR. SRC, SYSERR.OBJ, 6, 1 

017464 SL4:DR2:ASM DEVMGR. SRC, DEVMGR.OBJ, 6, 1 

017465 SL4:DR2:ASM SCMGR . SRC, SCMGR . OB J, 6, 1 

017466 SL4:DR2:ASM FMGR. SRC, FMGR . OB J, 6, 1 

017467 SL4:DR2:ASM CFMGR . SRC, CFMGR . OB J, 6, 1 

017468 SL4:DR2:ASM BUFMGR. SRC, BUFMGR.OBJ, 6, 1 

017469 SL4:DR2:ASM MEMMGR. A. SRC, MEMMGR. OBJ, 6, 1 

017470 : :END 
017471 

017472 ************************************************************************* 

017473 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: COMPILE. SOS 

017474 ************************************************************************* 
017475 

017476 
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017477 ========================================================================== 

017478 DOCUMENT : SOS1 . 3 . 5of 5 .FIVE : SOS . FEB01 .1982. TEXT 

01747 9 ========================================================================== 

017480 

017481 ************************************************************************* 

017482 * APPLE /// SOS 1.3 SOURCE CODE FILE: FEB01.1982 
017483 

017484 * ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
017485 

017486 SL4:DR1:ASM SOSLDR. SRC, SOSLDR.OBJ, 6, 1 

017487 SL4:DR1:ASM INIT . SRC, INIT . OBJ, 6, 1 

017488 SL4:DR1:ASM SYSGLOB . SRC, SYSGLOB . OBJ, 6, 1 

017489 SL4:DR1:ASM OPRMSG . SRC, OPRMSG . OB J, 6, 1 

017490 SL4:DR1:ASM BFM. INIT2 . SRC, BFM . INIT2 . OB J, 6, 1 

017491 SL4:DR1:ASM IPL . SRC1 , IPL . OBJ, 6, 1 

017492 SL4:DR1:ASM UMGR. SRC, UMGR. OBJ, 6, 1 

017493 SL4:DR2:ASM DISK3 . SRC, DISK3 . OBJ, 6, 1 

017494 SL4:DR2:ASM SYSERR. SRC, SYSERR.OBJ, 6, 1 

017495 SL4:DR2:ASM SCMGR . SRC, SCMGR . OB J, 6, 1 

017496 SL4:DR2:ASM FMGR. SRC, FMGR . OB J, 6, 1 

017497 SL4:DR2:ASM CFMGR . SRC, CFMGR . OB J, 6, 1 

017498 SL4:DR2:ASM DEVMGR. SRC, DEVMGR.OBJ, 6, 1 

017499 SL4: DR2 : ASM BUFMGR . SRC , BUFMGR . OB J, 6 , 1 

017500 SL4:DR2:ASM MEMMGR. A. SRC, MEMMGR. OBJ, 6, 1 

017501 END 
017502 

017503 ************************************************************************* 

017504 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: FEB01.1982 

017505 ************************************************************************* 
017506 
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017507 ============================================================================== 

017508 DOCUMENT : SOS1 . 3 . 5of 5 . FIVE : SOS . LC . TEXT 

017509 ============================================================================== 

017510 

017511 ************************************************************************* 

017512 * APPLE /// SOS 1.3 SOURCE CODE FILE: LC 
]_ 7 5 1 3 + + 

017514 * ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
017515 

017516 IFNE Z Z LEN-LEN ? ? ? ? 

017517 FAIL 2,"SOSORG FILE IS INCORRECT FOR ??????" 

017518 FIN 
017519 

017520 ************************************************************************* 

017521 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: LC 

017522 ************************************************************************* 
017523 

017524 
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017525 
017526 
017527 
017528 
017529 
017530 
017531 
017532 
017533 
017534 
017535 
017536 
017537 
017538 
017539 
017540 
017541 
017542 
017543 
017544 
017545 



DOCUMENT : SOS1 . 3 . 5of 5 . FIVE : SOS . LCHK . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: LCHK 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



INCLUDE SOSORG, 6, 1, 254 
ORG ??????? 



IFNE Z Z LEN-LEN ? ? ? ? 

FAIL 2, "SOSORG 

FIN 



FILE IS INCORRECT FOR ??????" 



************************************************************************* 



END OF APPLE /// SOS 1.3 SOURCE CODE FILE: LCHK 



************************************************************************* 
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017546 
017547 
017548 
017549 
017550 
017551 
017552 
017553 
017554 
017555 
017556 
017557 
017558 
017559 
017560 
017561 
017562 
017563 



DOCUMENT : SOS1 . 3 . 5of 5 . FIVE : SOS . PUBLICRE LEASE . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: PUBLICRE LEASE 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



T 15,19,32 
PR#1,L58 132N 
SL4:DR1:ASM PRINT, BFM. OBJ, S6, Dl 
END 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: PUBLICRELEASE 

************************************************************************* 
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017564 
017565 
017566 
017567 
017568 
017569 
017570 
017571 
017572 
017573 
017574 
017575 
017576 
017577 
017578 
017579 
017580 
017581 
017582 
017583 
017584 
017585 
017586 
017587 
017588 
017589 
017590 
017591 
017592 
017593 
017594 
017595 
017596 
017597 
017598 
017599 
017600 
017601 



DOCUMENT : SOS1 . 3 . 5of 5 . FIVE : SOS . SOS .BLOAD . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: SOS. BLOAD 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



MON I 

CALL-1 

1600:0 

160K1 

3D0G 

MON I 

BLOAD 

BLOAD 

BLOAD 

BLOAD 

BLOAD 

BLOAD 

BLOAD 

BLOAD 

BLOAD 

BLOAD 

BLOAD 

BLOAD 

BLOAD 

BLOAD 

BLOAD 

BLOAD 

NOMON 



51 

600 . 93FEM 



SOSLDR.ABS, A$2000 
INIT.ABS,A$2AF8 
SYSGLOB . ABS, A$2CF8 
BFM. INIT2 .ABS, A$2E00 
BFM.ABS,A$3200 
OPRMSG.ABS, A$54 66 
IPL.ABS, A$55C0 
UMGR.ABS, A$5A8B 
DISK3.ABS,A$5E99 
SYSERR . ABS, A$6404 
DEVMGR . ABS , A$ 6 4 D 9 
SCMGR.ABS,A$665E 
FMGR.ABS, A$68F4 
CFMGR.ABS,A$6955 
BUFMGR .ABS,A$6B52 
MEMMGR . ABS , A$ 6E 6E 
I 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SOS. BLOAD 

************************************************************************* 
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017 602 ========================================================================== 

017603 DOCUMENT : SOS1 . 3 . 5of 5 . FIVE : SOS . SOS . LINK . TEXT 

017 604 ========================================================================== 

017605 

017606 ***************************************** 

017607 * APPLE /// SOS 1.3 SOURCE CODE FILE: SOS. LINK 

017 608 ************************************************************************* 

017609 * ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

017610 

017611 SOSLDR.OBJ 

017612 INIT.OBJ 
017 613 SYSGLOB.OBJ 

017614 BFM. INIT2 .OBJ 

017615 BFM. OBJ 

017616 OPRMSG.OBJ 

017617 IPL.OBJ 

017618 UMGR.OBJ 

017619 DISK3 . OBJ 
017 620 SYSERR.OBJ 
017 621 SCMGR.OBJ 
017622 FMGR.OBJ 
017 623 CFMGR . OBJ 
017 624 DEVMGR.OBJ 
017 625 BUFMGR. OBJ 
017 62 6 MEMMGR. OBJ 
017627 END 
017628 

017629 ************************************************************************* 

017630 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SOS. LINK 

017631 ************************************************************************* 
017632 
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017 633 ========================================================================== 

017634 DOCUMENT : SOS1 . 3 . 5of 5 . FIVE : SOS . SOS . RENAME . TEXT 

017 635 ========================================================================== 

017636 

017637 ************************************************************************* 

017638 * APPLE /// SOS 1.3 SOURCE CODE FILE: SOS. RENAME 

017639 ************************************************************************* 

017640 * ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
017641 

017642 MON I 

017 643 RENAME SOSLDR. OB J . ABS, SOSLDR. ABS 

017644 RENAME INIT . OB J . ABS, INIT . ABS 

017645 RENAME SYSGLOB . OBJ . ABS, SYSGLOB . ABS 
017 64 6 RENAME OPRMSG . OB J . ABS, OPRMSG . ABS 

017647 RENAME BFM. OBJ. ABS, BFM. ABS 

017648 RENAME BFM. INIT2 . OBJ . ABS, BFM. INIT2 . ABS 

017649 RENAME IPL . OBJ. ABS, IPL . ABS 

017650 RENAME UMGR. OB J . ABS, UMGR. ABS 

017651 RENAME DISK3 .OBJ. ABS, DISK3 -ABS 
017 652 RENAME SYSERR. OB J . ABS, SYSERR. ABS 

017653 RENAME SCMGR.OBJ. ABS, SCMGR.ABS 

017654 RENAME FMGR. OB J . ABS, FMGR. ABS 

017655 RENAME CFMGR.OBJ. ABS, CFMGR.ABS 
017 656 RENAME DEVMGR. OB J . ABS, DEVMGR. ABS 

017657 RENAME BUFMGR. OB J . ABS, BUFMGR. ABS 

017658 RENAME MEMMGR. OB J . ABS, MEMMGR. ABS 

017659 NOMON I 
017660 

017661 ************************************************************************* 

017662 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SOS. RENAME 

017663 ************************************************************************* 
017664 
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017665 
017666 
017667 
017668 
017669 
017670 
017671 
017672 
017673 
017674 
017675 
017676 
017677 
017678 
017679 
017680 
017681 
017682 
017683 
017684 
017685 
017686 
017687 
017688 
017689 
017690 
017691 
017692 
017693 
017694 
017695 
017696 
017697 
017698 
017699 
017700 
017701 
017702 
017703 
017704 
017705 
017706 
017707 
017708 
017709 
017710 
017711 
017712 
017713 



DOCUMENT : SOS1 . 3 . 5of 5 .FIVE : SOS . SOSORG . TEXT 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: SOSORG 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



SOS 



REP 100 
KERNEL MODULE ORIGINS 



ORGLODR 

ORGINIT 

ORGGLOB 

ORGBFMI 

ORGBFM 

ORGPATCH 

ORGOMSG 

ORGIPL 

ORGUMGR 

ORGDISK3 

ORGSERR 

ORGDMGR 

ORGSCMGR 

ORGFMGR 

ORGCFM 

ORGBUFMG 

ORGMEMMG 

ORGEND 

* LENGTH 

LENLODR 

LENINIT 

LENBFMI 

LENBFM 

LENPATCH 

LENOMSG 

LENIPL 

LENUMGR 

LENDISK3 

LENSERR 

LENDMGR 

LENSCMGR 

LENFMGR 

LENCFM 

LENBUFMG 

LENMEMMG 



OF 



SOS BLOAD 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
REP 

SOS MODULES ■ 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
REP 
ADDRESSES 



$1E00 
$28F8 
$18FC 
$B800 
$BC00 
$DE66 
$DE66 
$DFC0 
$E48B 
$E899 
$EE04 
$EED9 
$F05E 
$F2F4 
$F355 
$F552 
$F86E 
$FFBF 
100 

— THIS MUST AGREE WITH 
ORGINIT-ORGLODR 
$01B2 

ORGBFM-ORGBFMI 
ORGPATCH-ORGBFM 
ORGOMSG-ORGPATCH 
ORGIPL-ORGOMSG 
ORGUMGR-ORGIPL 
ORGD I SK3 -ORGUMGR 
ORGSERR-ORGD I SK3 
ORGDMGR-ORGSERR 
ORGSCMGR-ORGDMGR 
ORGFMGR-ORGSCMGR 
ORGCFM-ORGFMGR 
ORGBUFMG-ORGCFM 
ORGMEMMG-ORGBUFMG 
ORGEND-ORGMEMMG 
100 



ORIGIN 


OF 


SOS LOADER 




ORIGIN 


OF 


INIT 




ORIGIN 


OF 


SYSGLOB 




ORIGIN 


OF 


BFM.INIT2 & 


BITMAPS 


ORIGIN 


OF 


BFM 




ORIGIN 


OF 


PATCH AREA 




ORIGIN 


OF 


OPRMSG 




ORIGIN 


OF 


IPL 




ORIGIN 


OF 


UMGR 




ORIGIN 


OF 


DISK3 




ORIGIN 


OF 


SYSERR 




ORIGIN 


OF 


DEVMGR 




ORIGIN 


OF 


SCMGR 




ORIGIN 


OF 


FMGR 




ORIGIN 


OF 


CFMGR 




ORIGIN 


OF 


BUFMGR 




ORIGIN 


OF 


MEMMGR 




END MARKER 




ZZLEN FOR 


EACH MODULE 




LENGTH 


OF 


SOS LOADER 




LENGTH 


OF 


INIT 




LENGTH 


OF 


BFM.INIT2 & 


BITMAPS 


LENGTH 


OF 


BFM 




LENGTH 


OF 


PATCH AREA 




LENGTH 


OF 


OPRMSG 




LENGTH 


OF 


IPL 




LENGTH 


OF 


UMGR 




LENGTH 


OF 


DISK3 




LENGTH 


OF 


SYSERR 




LENGTH 


OF 


DEVMGR 




LENGTH 


OF 


SCMGR 




LENGTH 


OF 


FMGR 




ORIGIN 


OF 


CFMGR 




LENGTH 


OF 


BUFMGR 




LENGTH 


OF 


MEMMGR 
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017714 
017715 
017716 
017717 
017718 
017719 
017720 
017721 
017722 
017723 
017724 
017725 
017726 
017727 
017728 
017729 
017730 
017731 
017732 
017733 
017734 
017735 
017736 
017737 



BLALODR 


EQU 


$2000 


BLOAD 


ADDRESS 


OF 


SOS LOADER 


BLAINIT 


EQU 


BLALODR+LENLODR 


BLOAD 


ADDRESS 


OF 


INIT 


BLAGLOB 


EQU 


$2CF8 


BLOAD 


ADDRESS 


OF 


SYSGLOB 


BLABFMI 


EQU 


$2E00 


BLOAD 


ADDRESS 


OF 


BFM.INIT2 & BITMAPS 


BLABFM 


EQU 


$3200 


BLOAD 


ADDRESS 


OF 


BFM 


BLAPATCH 


EQU 


BLABFM+LENBFM 


BLOAD 


ADDRESS 


OF 


PATCH AREA 


BLAOMSG 


EQU 


BLAPATCH+LENPATCH 


BLOAD 


ADDRESS 


OF 


OPRMSG 


BLAIPL 


EQU 


BLAOMSG+LENOMSG 


BLOAD 


ADDRESS 


OF 


IPL 


BLAUMGR 


EQU 


BLAIPL+LENIPL 


BLOAD 


ADDRESS 


OF 


UMGR 


BLADISK3 


EQU 


BLAUMGR+LENUMGR 


BLOAD 


ADDRESS 


OF 


DISK3 


BLASERR 


EQU 


BLADI SK3+LEND I SK3 


BLOAD 


ADDRESS 


OF 


SYSERR 


BLADMGR 


EQU 


BLASERR+LENSERR 


BLOAD 


ADDRESS 


OF 


DEVMGR 


BLASCMGR 


EQU 


BLADMGR+LENDMGR 


BLOAD 


ADDRESS 


OF 


SCMGR 


BLAFMGR 


EQU 


BLASCMGR+LENSCMGR 


BLOAD 


ADDRESS 


OF 


FMGR 


BLACFM 


EQU 


BLAFMGR+LENFMGR 


BLOAD 


ADDRESS 


OF 


CFMGR 


BLABUFMG 


EQU 


BLACFM+LENCFM 


BLOAD 


ADDRESS 


OF 


BUFMGR 


BLAMEMMG 


EQU 


BLABUFMG+LENBUFMG 


BLOAD 


ADDRESS 


OF 


MEMMGR 




REP 


100 











*************************************** 



END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SOSORG 



************************************************************************* 
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017738 ========================================================================== 

017739 DOCUMENT : SOS1 . 3 . 5of 5 . FIVE : SOS . TCOMP . SOS . TEXT 

017740 ========================================================================== 

017741 

017742 ************************************************************************* 

017743 * APPLE /// SOS 1.3 SOURCE CODE FILE: TCOMP . SOS 

017744 ************************************************************************* 

017745 * ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
017746 

017747 : TABS 17,23,40 

017748 SL4:DR1:ASM IPL . SRC1 , IPL . OBJ, 6, 1 

017749 SL4:DR1:ASM UMGR. SRC, UMGR . OB J, 6, 1 

017750 SL4:DR2:ASM DISK3 . SRC, DISK3 . OBJ, 6, 1 

017751 SL4:DR2:ASM SYSERR. SRC, SYSERR.OBJ, 6, 1 

017752 SL4:DR2:ASM SCMGR . SRC, SCMGR. OB J, 6, 1 

017753 SL4:DR2:ASM FMGR. SRC, FMGR. OBJ, 6, 1 

017754 SL4:DR2:ASM CFMGR . SRC, CFMGR . OB J, 6, 1 

017755 SL4:DR2:ASM DEVMGR. SRC, DEVMGR.OBJ, 6, 1 

017756 SL4: DR2 : ASM BUFMGR . SRC , BUFMGR . OB J, 6 , 1 

017757 SL4:DR2:ASM MEMMGR. A. SRC, MEMMGR. OBJ, 6, 1 
017758 

017759 ************************************************************************* 

017760 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: TCOMP . SOS 

017761 ************************************************************************* 
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End of File — Lines: 17761 Characters: 568225 

SUMMARY : 

Total number of files : 1 
Total file lines : 17761 

Total file characters : 568225 





The End 
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